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PREFACE 


This manual provides a reference on the APL language for users of 
APL systems. For those unfamiliar with APL, Section 1 is a brief 
introduction which illustrates modes of use and gives an overview of 
language and system concepts. Fundamentals of the language and the 
terminology used in other parts of the manual are given in Section 2, 
but otherwise the various sections of the manual are substantially 
independent of one another and may be used in any order. . 


Two aspects of this manual particularly merit the reader's 
attention. First, the Table of Contents can be profitably studied on 
its own, since it not only gives the organization of the manual, but 
also reflects the structure of APL itself. This is especially true of 
Section 3, Primitive Functions and Operators. 


Second, the text is supplemented by a comprehensive set of tables 
which summarize various aspects of the language, and can also be used 
for convenient reference. For example, any given function symbol will 
be found in either Figure 3.1 (Primitive Scalar Functions) or Figure 3.5 
(Primitive Mixed Functions). If the information given on the spot is 
not. sufficient for the problem at hand, then the name of the function, 
which will always be found there, can be used for finding references in 
the body of the text... 


Differences among the various APL systems served by this manual 
are documented in two ways: Language differences, which mainly concern 
system commands, are summarized in the Appendixes to this manual. Other 
differences, which concern system limitations, or system features such 
as file and input/output facilities, including the auxiliary processors 
provided with each system, are documented in the publications listed 
below, which supplement the information in this publication: 
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SUMMARY OF AMENDMENTS 


Revised by: TNL GN26-0829, dated February 13, 1976 
APLSV, VS APL, and IBM 5100 Considerations 


New: Documentation only 


Three appendixes have been added that respectively describe APL 
language differences for APLSV, VS APL, and the IBM 5100 Portable 
Computer. Language differences are grouped under the names of the 
Language Manual sections to which they apply. 


Miscellaneous Specification Changes 


A new system command )SINL replaces the obsoleted system command 
)SIV. This replacement is indicated in the section “System Commands." 
The response to the inquiry command )SYMBOLS now includes the number 
of symbols in use. 


APL now includes the system variable DHT (horizontal tabs). The 
system variable OTT (terminal type) now provides for a 3270 terminal 
type. These variables are described in the section “System Functions 
and System Variables." Clear workspace values for DHT are listed in the 
section "System Commands." 


A new error report ENTRY replaces the former error report CHARACTER 
in the list of error reports in the section "Fundamentals." Explanations 
for the causes of the reports Q--IMPLICIT and VALUE have been extended. 


Vector arguments of length one used in inner products and as left 
arguments of rotate are now extended in the same way as scalar arguments. 


Expressions requesting statement deletion may indicate only one 
statement number. Previous specifications provided for the deletion of 
more than one statement at a time. 


A request for evaluated input, in the case of certain terminals, 
may now be interrupted by entering the sequence 0 backspace U backspace T. 
This is described in the new discussion "Interrupting Input" in the 
section "Function Execution." 


Damage to a function is now indicated in the display of the state 
indicator by listing ~1 as the line number of the affected function. 
This is described in the discussion "State Indicator Damage" in the 
section "Function Execution" and the description of the )SI command in 
the "System Command" section. 


Miscellaneous Service Changes 


Several typographical errors in the sales and billing example have 
been corrected in the Introduction. Corrections have also been made to 
the lamination function example and to the formal description of the 
indexing function. 


The descriptions of the rank of the result of take, drop, compress, 
and expand have been corrected. 


The listed rank requirement for the system function ODL have been 
corrected; the argument must be a scalar. : 


Summary of Amendments ix 


SECTION 1: INTRODUCTION 


APL is a general-purpose language which enjoys extensive use in 
such diverse applications as commercial data processing, system design, 
mathematical and scientific computation, and the teaching of mathematics 
and other subjects. It has proved particularly useful in data-base 
applications, where its computational power and communication facilities 
combine to enhance the productivity of both application programmers and 
end users. 


When implemented as a computing system, APL is used froma : 
typewriter-like keyboard. Statements that specify. the work to be: done 
are entered by typing them, and in response the computer displays the 
result of the computation. The result appears at a device which 
accompanies the keyboard, such as a printer, or video display. In 
addition to work purely at the keyboard and its associated display, 
entries may also invoke the use of printers, disk-files, tapes or other 
remote devices:.: ; ‘ 


TWO EXAMPLES OF THE USE OF APL 
A statement entered at the keyboard may contain numbers, or 
symbols such as + - x +, or names formed from letters of the alphabet. 

The numbers and special symbols stand for the primitive objects and 
functions of APL; primitive in the sense that their meanings are 
permanently fixed, and therefore understood by the APL system without 
further definition. A name, however, has no Bigniticance until a 
meaning has been pestgned to it. 


Names are used for two major categories of objects. : There are 
names for collections of data, made up of numbers or characters. Such a 
named collection is called a variable. Names may also be used for 
programs made up of sequences of APL statements. Such programs are 
called defined functions. Once they have been.established, names of 
variables and defined functions can be used in statements by themselves 
or in combination with the primitive functions and objects. 


AN ISOLATED CALCULATION 


If the work to be done can be adequately specified simply by 
keying a statement made up of numbers and symbols, names will not be 
required: entering the expression to be evaluated causes the result to 
be displayed. For example, suppose it is required to compare the rates 
of return on money at a fixed interest rate but with different 
compounding intervals. For 1000 units at 6%, compounded annually, 
quarterly, monthly, or daily, for 10 years, the transaction (at a 
typewriter terminal) would look like this: 


1000x(1+.06%1 4 12 365)*10x1 4 12 365 (entry) 
1790.85 1844.02 1819.4 1822.03 (response) 


(The largest gain is apparently obtained in going from annually to 
quarterly, and after that the differences are relatively insignificant.) 


Several distinctive features of APL are illustrated in this 
example: familiar symbols such as + x + are used where possible; 
symbols are introduced where necessary, (as the « for the power 
function); and a group of numbers can be worked on together. 
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A PREPARED WORKSPACE 


Although there are many problems that can be solved by keying in 
the appropriate numbers. and. symbols, the greatest benefits of using APL 
come when named functions and.data are used. Since a single name. may 
refer to a large array of data, using the name is far..simpler than 
keying in all of its members. Similarly, a defined function, invoked by 
entering its name, may be composed of: many individual APL statements 
that would be burdensome to type individually again and again. 


Once a function has been defined, or data collected under a name, 
it is usually desirable to retain the significance of the names for 
some period of time; perhaps for just a few minutes, but more often for 
much longer periods, possibly months or years. For this reason APL 
systems are organized around the concept of a workspace, which might be 
thought of as a notebook in which all the different items neesed during 
some piece of work are recorded cogerhess 


The following example illustrates the use bE an application 
ackage - a workspace prepared for a particular data-processing 
application. It is not expected that the reader new to APL will 
immediately follow all details, but the example should nevertheless 
provide, on the one hand, an indication of the ease of exploring and 
using such a package, and on the ene hand, the relative.ease of 
constructing it. : ‘ La 


The example is a skeletal system for sales, billing, and inventory 
control for, say, a wholesale distributor of gadgets. The system 
maintains an inventory of items in stock, with part numbers, : 
descriptions, unit prices, quantities on hand,.and reorder levels. It 
automatically adjusts the quantity on hand when an invoice is prepared, 
and signals when the stock level goes below the reorder level. - It also 
provides for entering new stock items in the inventory list and has 
Rroviston for order entry and printing of invoices. 


To complete this basic. system. for actual application, it would be 
necessary to. add functions such as the recording of .a.journal and the .. 
Maintenance of the customer list, and to add appropriate checks on 
errors of input and on security. Nevertheless, the package does work, 
‘as far as it goes, and in addition to showing the use of many functions 
of the language, also demonstrates the conciseness of APL programming. 


To start, the stored workspace containing the BPR Te ateee. package 
is activated, using a system command : 


)LOAD 1 SBIC 
SAVED 18. 42.25.02/06/75. 


To ‘become acquainted. with the contents of the ‘package the names of 
variables and defined functions are listed: ; : 


)VARS : mY 
CUSTLIST. DESCRIBE _ ° INVNO ‘LOW MTH ORDLIST 
STOCKLIST 

)FNS —_ ; : : 2 
ADDRESS DATE.. GET INVOICE: WEWSTOCK © ORDER ~ ORDERENTRY 


PRINT PUT RESTOCK 


2 APL Language 


The variable name DESCRIBE is suggestive. Its value can be 
displayed by simply entering the name: 


DESCRIBE 
THIS WORKSPACE CONTAINS FUNCTIONS FOR RECORDING ORDERS, 
MAINTAINING AN INVENTORY, AND PREPARING INVOICES. IT IS A 
SKELETAL SYSTEM DESIGNED TO ILLUSTRATE THE USE OF APL IN 
COMMERCIAL DATA PROCESSING. 


THE VARIABLES CUSTLIST, ORDLIST, AND STOCKLIST CARRY, 
RESPECTIVELY, CUSTOMER NAMES AND ADDRESSES KEYED TO A 
CUSTOMER NUMBER, ORDERS BY STOCK NUMBER AND CUSTOMER NUMBER, 
AND TRE INVENTORY LIST OF STOCK ITEMS. INVNO IS A COUNTER 
FOR SUCCESSIVE INVOICE NUMBERS, LOW INDICATES ITEMS TO BE 
REORDERED, AND MTH HOLDS NAMES FOR MONTHS OF THE YEAR. 


WHEN DISPLAYING THE STOCK LIST OR CUSTOMER LIST ON A 
TYPEWRITER TERMINAL IT WILL BE DESIRABLE TO CHANGE TO A 
TYPE-ELEMENT HAVING BOTH UPPER AND LOWER CASE ALPHABETS. 


MEANINGFUL STATEMENTS IN THIS WORKSPACE ARE: 


NEWSTOCK 

ORDERENTRY 

PRINT INVOICE ORDER N 
RESTOCK 


WHERE N IS A CUSTOMER WUMBER. FOR CONSISTENCY WITH THE DATA 
ALREADY ENTERED, NEWSTOCK AND PRINT SHOULD ALSO BE USED 
WITH A TYPE-ELEMENT THAT HAS BOTH ALPHABETS. 


THE FUNCTIONS ADDRESS, DATE, GET, AND PUT ARE NOT 
NORMALLY INVOKED BY A DIRECT KEYBOARD ENTRY, BUT ARE USED BY 
THE VARIOUS FUNCTIONS NOTED ABOVE. 


It might be helpful at this point to display STOCKLIST to see just 
what the information .looks like. But the list might be very large, and 
it is good practice. to find out its size before asking for the display: 


eSTOCKLIST 
6 39 


The list has 6 rows and 39 columns, which is not too much to 
display in its entirety. Following the advice in DESCRIBE the 
type-element can be changed and the variable name entered: — 


.. Stocklist 
1135 First Great Item 9.95 350 55 
9993 High Flyer Widget 88.73 240 35 
3569 Second Moneymaker 24.75 200 30 
5613 Mail Order Special 14.99 600 95 
2583 A Real Winner | 49.99 125 10 
9998 Nonesuch Frammis 2.69 500 50 


Next it might be useful to look at the customer list: 


eCUSTLIST 
3.5 20 
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The customer list is apparently represented by a three-dimensional 
array, and it will be interesting to see how it is displayed: 


custlist 

7 
City Traders Inc. 
41 Postage Road 
Rimela, N. Y. 12345 


55 
Mail House Ltd.~ 
7-11 Ramblers Lane 
Offshore Island 
City, S. Dak. 54321 


ae 
Mantup Sales Corp. 
’ Ruralia Farms 
RFD 2 
Suburbian, Wis. 0000 


Finally, it is probably worth looking at the order list: 


pORDLIST 


ORDLIST 
55 3569 5 
312 9998 12 
7 1135 2 
312 3569 10 
312 5613 45 
7 5613 75 


This is a 3-column numerical array, and the significance of 
each column is easily deduced from the previous displays: the sucessive 
columns appear to represent customer number, stock number, and quantity. 


Use of the package can be demonserered by trying the meaningful 
statements: 


_ ORDERENTRY 
CUSTOMER ITEM QUANTITY 


In response to the statement ORDERENTRY the system has displayed column 

headings, and the keyboard has unlocked for further entry. These can be 

supplied, using some of the existing customer and item numbers. The 

entire transaction at the terminal might be this: 
ORDERENTRY 

CUSTOMER ITEM QUANTITY 

§5 1135 12 

312 1135 24 

55 2583 4 


Since customer 55 had one item on order before, three should be on order 
now. ; 


4 APL Language 


Although it is not listed as a meaningful statement, what happens 
if the function ORDER is used by itself? 


ORDER 55 
55 3569 5 
55 1135 12 
55 2583 4 


This entry produces a result which seems to confirm the number of items 
on order. It turns out that this result will be used by INVOICE to 
produce a result which will in turn be used by PRINT. 


invoice order 55 


1336 55 
3569 Second Moneymaker 24.75 5 123.75 
1135 First Great Item 9.95 12 119.40 
2583 A Real Winner 49.99 4 199.96 


If the complete statement given in DESCRIBE is entered rather then 
these piecemeal entries, the result is a formatted output intended to be 
used with a pre-printed form: 


print invoice order 55 


. Invoice No. 
Mail House Ltd. 1336 : 
7-11 Ramblers Lane 
Offshore Island Feb 8, 1975 
City, S. Dak. 54321 


Second Moneymaker 
1135 | First Great Item 
A Real Winner 


Tota $ 443.11 


Distributors Corp. 123 First Ave., City, St. 99999 


For the sake of completeness, and because they illustrate 
variations in the method of requesting input, the remaining two 
statements can be entered. WEWSTOCK prints a prompting message and then 
unlocks the keyboard, waiting for entry of the response on the same 
line: 


newstock 
stock number/ 8760 
description/ The Best Gadget 
unit price/ 1.73. 
initial inventory/ 875 
reorder level/ 198 


RESTOCK not only prints a prompting message, but uses an 
additional prompt 0: supplied by the system: 


: RESTOCK 
STOCK NUMBER 
O: 
1135 
STOCK INCREMENT 
QO: 


30 
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It might now be of interest to display the inventory. once more to 
see the effect of the previous operations: 


stocklist 
1135 First Great Item 9.95 368 55 
9993 High Flyer Widget 88.73 240 35 
3569 Second Moneymaker 24.75 195 30 
5613 Mail Order Special 14.99 600 95 
2583 A Real Winner 49.99 121 10 
9998 Nonesuch Frammis 2.69 500 50 
8760 The Best Gadget 1.73 875 100 


The quantities on hand do indeed show the effect of completing the 
order, replenishing the stock, and adding a new item. 


The complete set of ten functions in this package is displayed in 
Figure 1.1. The first line in each definition is the function header, 
which specifies, among other things, the function name and syntax. The 
remainder in each individual display is the function body. The longest 
function, INVOICE, has twelve lines, the shortest, ORDER, has only one. 


FORM*+PRINT W3X 

X<1itpNW 

FORM+ 46 12 43 *+tADDRESS 1 76 +N 
FORM(1;37+161«64W(1;] 
FORM(33;314+1121]<DATE OTS 
FORML6+1iX-13;]< 1 0 4M 
FORM[12;]+ 43+t+/e, 1 35 ¥W 


Z«INVOICE N3R3X3PQR3EXT 

X<+ 6 0 tQINVNO<INVNO+1 

Z+~ 143 pX, 37 0 *W[131] 
L1:X<«NW[1;] 

PQR+225+R+GET X[2] 
EXT+X(31xPQR[1] : 
Z+Z,011(031tR), 4 0 8 2 PXL31,FXT 
PQRL2]«PQR[2]-X[3] 

+(>/PQR[2 3])/L2 
LOW*+LOW,(~XC2]eLOW)/XEL2] 
L2:R(31+141+ 4 0 FPQR[2) 

R PuT x[2] 

>(O#1tpN+ 1 0 4N)/L4 


-Z<ORDER N 
Z«(ORDLIST( 311=N) 4ORDLIST 


“G+ADDRESS N3I 
I#(CUSTLISTE 31316]A.=,N) 14 
Ze 1 0 ¥CUSTLISTLI:;] 


Z«DATE N 
Z+MTHCWE21;], 3 0 6 0 ¥WE3 1) 
Ci Je" 5" 


Figure 1.1: 
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NEWSTOCK;R 
M<+'STOCK NUMBER/ '! 
Re 4 0 Fa 
M<+'DESCRIPTION/ ! 
RR, 2141240 
M<+'UNIT PRICE/ ! 
R<R, 6 2 te 
M<+'INITIAL INVENTORY/ ' 
R+R, 4 0 Fo 
M<+'REORDER LEVEL/ ' 
RR, 4 0 F292 

R PUTS4ut+R 


ORDERENTRY;L 

‘CUSTOMER ITEM QUANTITY' 
L1i:2(' 'a,=L<f)/0 
ORDLIST+*ORDLIST,C1leb 
>L1 ~ 


RESTOCK3R3X3;PQR 

"STOCK NUMBER' 

PQR<«e25¢R<GET X<0 

"STOCK INCREMENT! ; 
RP(31+14]<+ 4 0 FPQRL2]1<PQRL21+0 

R PUT X i 


R PUT N;3Tr 
I«(STOCKLIST(314]A.= 4 0 FH)i1 
+(IsitpSTOCKLIST)/L1 
STOCKLIST+STOCKLIST,[Ci] ' ' 
L1:STOCKLIST(I;1<R 


Z<GET N3I 
I+(STOCKLISTL3;14IA.= 4 O FV)i1 
Z«STOCKLIST(I;] 


Functions for Sales, Billing, and Inventory Control 


The details of the programming will not be discussed here, but one 
point is worth noting. As they stand here the various data lists are 
very small. Ina real use, one or more of them might. have many 
thousands of entries. A good way to handle them in that case is 
illustrated by the treatment of STOCKLIST, which is accessed only by the 
functions pur and GET, rather than the primitive APL functions which 
could have been used directly for this purpose. By thus isolating the 
access functions the application package design is automatically made 
more general; if a different representation were chosen for STOCKLIST - 
Say, an external file- the required changes in the programming would be 
confined to the definitions of py? and G#T, and the other functions such 
as INVOICE or WEWSTOCK, which give the package its particular character, 
would be unaffected. In this way, an APL application can be expanded to 
data-bases of arbitrary size, well beyond the storage capacity of the 
workspace that establishes the environment for the work. 


THE CHARACTERISTICS OF APL 


The subsequent sections of this manual describe APL in detail, 
giving the meaning of each symbol and discussing the various features 
common to the APL systems currently available from IBM. It is well to 
view these details in light of the major characteristics of APL, which 
may be summarized as follows: 


The primitive objects of the language are arrays (lists, tables, 
lists of tables, etc.). For example, A+B is meaningful for any 
arrays A and B, the size of an array (pA) is a primitive function, 
and arrays may be indexed by arrays, as in A[3 1 4 2] 


The syntax is simple: there are only three statement types (name 
assignment, branch, or neither), there is no function precedence 
hierarchy, functions have either one, two, or no arguments, and 
primitive functions and defined functions (programs) are treated 
alike. 


The semantic rules are few: the definitions of primitive functions 
are independent of the representations of data to which they apply, 
all scalar functions are extended to other arrays in the same way 
(that is, item-by-item), and primitive functions have no hidden 
effects (so-called side-effects). 


The sequence control is simple: one statement type embraces all 
types of branches (conditional, unconditional, computed, etc.), and 
the termination of the execution of any function always returns 
control to the point of use. 


_ External communication is established by means of variables which 
are shared between APL and other systems or subsystems. These 
shared variables are treated both syntactically and semantically 
like other variables. A subclass of shared variables, system 
variables, provides convenient communication between APL programs 
and their environment. 


The utility of the primitive functions is vastly enhanced by 
operators which modify their behavior in a systematic manner. For 
example, reduction (denoted by /) modifies a function to apply over 
all elements of.a list, as in +/Z for summation of the items of Z. 
The remaining operators are scan (running totals, running maxima, 
etc.), the axis operator which, for example, allows reduction and 
scan to be applied over a specified axis (rows or columns) of a 
table, the outer product, which produces tables of values as in 
RATEo,.*YEARS for an interest table, and the inner product, a simple 
generalization of matrix product which is exceedingly useful in data 
processing and other non-mathematical applications. 
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The number of primitive functions is small enough that each is 
represented by a single easily-read and easily-written symbol, yet 
the set of primitives. embraces operations from simple addition to 
grading (sorting).and formatting. The complete set can be 
classified as follows: os 


‘Arithmetic: + -.x +*@0o | Lrig 
Boolean and Relational: vAwn~< <5 = B > # 
Selection and Structural: /\ #\ E;] ++o,492868 


General: ¢«.1?7? 24 TY4Ao2¢4 
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SECTION 2: FUNDAMENTALS 
A typical statement in APL is of the form: 
AREFA<3x4 
The effect of the statement is to assign to the name ARPFA the value of 


the expression 3x4 to the right of the specification arrow « ; the 
statement may be read informally as "ARFA is three times four." 


The statement is the normal unit of execution. Two primitive 
types occur, the specification illustrated above, and the branch, which 
serves to control the sequence in which the statements in a defined 
function (discussed in Section 6) are executed. There is also a third 
type of statement which may invoke the use of a defined function without 
either a specification or a branch. 


A variant of the specification statement produces display of a 
result on the medium (paper or screen) provided by the terminal device; 
if the leftmost part of a statement is not a name followed by a 
specification, the result of the expression is displayed. For example: 


3x4 

12 
PERIMETER<2x(3+4) 
PERIMETER 

14 


Printing of the result of any part of a statement can be obtained 
by including the characters [+ at the appropriate point in the 
statement. Moreover, any number.of specification arrows may occur ina 
statement. For example: 


ae X«24+0<3xYeu . 
12 : 
x 
14 
Y 
4 


The terminal entry and display devices used with APL systems 
include a variety of typewriter-like and display-tube devices. Their 
characteristics vary, but the essential common characteristics are: 


1. The ability to enter and display APL characters. 


2. A means of signalling completion (and release to the system) of an 
SCE: 


3... Facilities for convenient revision of an entry before release. 


4. Paciidties to interrupt execution at the end of a statement (weak 
interrupt) and within a statement (strong interrupt). : 


5. A cursor, such as an arrowhead, to show where on the line the next 
character entered will appear. 


All examples in this manual are presented as produced ona 
typewriter-like device on which the, release signal is produced by. the 
carrier return key, and revision is handled by backspacing to the point 
of revision, striking the attention button, and entering the revision. 
A caret supplied by the system marks the point of correction. For 
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example: -: 


3+4xSt 
A 
+546 
18 


On terminals of this type the attention key is also used for. 
interrupting execution. A single strike of this. key while execution is 
in progress provides a weak interrupt, and a double strike provides a 
strong interrupt. : _ @ : 


Entry of a statement which cannot be executed will invoke an error 
report which indicates the nature of the error and the point at which 
execution stopped. For example: , , 


X«5 
3+(YxX) 
VALUE ERROR 
3+(YxX) 
A 


Error messages are listed in Figure 2.1, together with information on 
the cause and suggested corrective action. 


CHARACTER SET 


The characters which may occur in a statement fall in four main 
classes: alphabetic, numeric, special, and blank. The alphabetics 
comprise the roman alphabet in upper case italic font, and the same 
alphabet underscored. The entire set is shown in Figure 2.2 together 
with suggested names and the scheme for forming (as composites of other 
symbols) those which may not be directly available on the keys of 
certain terminal devices. A typical keyboard layout is shown in Figure 
2.3. 


The names suggested are for the symbols themselves and not 
necessarily for the functions they represent. For example, the 
downstile | represents both the minimum, a function of two arguments, 
and the floor (or integer part), a function of one argument. In 
general, most of the special characters (such as +, -, *, and +) are 
used to denote primitive functions which are assigned fixed meanings, 
and the alphabetic. characters are used to form names which may be 
assigned and re-assigned significance as variables, defined functions, 
and other objects. The blank serves as a separator to mark divisions 
between names (which are of arbitrary length). 


For terminal devices which permit the display font to be changed 
without changing the behavior of the entry keyboard or communication 
with the system (as in changing the typing element on certain 
typewriters), any available display font may be used. For example, in 
textual work a font with normal upper- and lower-case roman is commonly 
employed. 


SCALAR AND VECTOR CONSTANTS 


ee teur a entered or displayed are in decimal, either in 
convehtional form (including a decimal point if appropriate) or in 
scaled form. The scaled form consists of an integer or decimal fraction 
called the multiplier followed immediately by the symbol F followed 
immediately by an integer (which must not include a decimal point) 
called the scale. The scale specifies the power of ten by which the 
multiplier is to be multiplied. Thus 1.44#2 is equivalent to 144. 
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Cause; CORRECTIVE ACTION 


Misuse of Vv or 0 symbols: 

1. The function is pendent. DISPLAY STATE INDICATOR AND 
CLEAR AS REQUIRED. 

2. Use of other than a function name alone in reopening 

a definition. 

Improper request for a line edit or display. 


DOMAIN Arguments not in the domain of the function. 


ENTRY Invalid character has been transmitted or received. 


O-- IMPLICIT | The system variable (-- (for example, O70) has been set 
to an inappropriate value, or has been localized and not 


been assigned a value. 


INDEX Index value out of range. 


INTERFACE 
QUOTA 
EXHAUSTED 


Attempt to share more variables than allotted quota. 
REQUEST LARGER QUOTA FROM APL OPERATOR. 


Execution was suspended within an APL statement. TO 
RESUME EXECUTION, ENTER A BRANCH TO THE STATEMENT 
INTERRUPTED. 


INTERRUPT 


LENGTH Shapes not conformable. 


NO SHARES Shared variable facility not in operation. 


Ranks not conformable. 


RANK 


RESEND Transmission failure or more than the implementation- 
allowed number of characters entered in one line. 
RE-ENTER. IF CHRONIC, REDIAL OR HAVE TERMINAL OR PHONE 


REPAIRED. 


SI DAMAGE The state indicator (an internal list of suspended and 
pendent functions) has been damaged in editing a function 


or in performing a )COPY or )FRASE. 


SYNTAX Invalid syntax; e.g. two variables juxtaposed; function 
used without appropriate arguments as dictated by its 


header; unmatched parentheses. 


SYMBOL 
TABLE 
FULL 


Too many names used. SAVE, CLEAR, COPY 
or SAVE, CLEAR, SYMBOLS, COPY 

or ERASE, SAVE, CLEAR, COPY 

SYSTEM Fault in internal operation of the system. RELOAD. SEND 
TYPED RECORD, INCLUDING ALL WORK LEADING TO THE ERROR, TO 
THE SYSTEM MANAGER, 


Use of name that does not have a value, or an attempt to 
use a numeric constant whose magnitude is too large or too 
small for internal. representation. ASSIGN A VALUE TO THE 
VARIABLE, DEFINE THE FUNCTION, OR CHANGE THE VALUE OF THE 
CONSTANT. : . 


WS FULL Workspace is filled (perhaps by temporary values produced 
in evaluating a compound expression, or by values of 
shared variables). CLEAR STATE INDICATOR, ERASE NEEDLESS 


OBJECTS, OR REVISE CALCULATIONS TO USE LESS SPACE. 


Figure 2.1: Error Reports 
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BCDEFGEHIdSIKLMNOPQR TUVWKY@ 


412345 67 8 9 


AY * OF FF VUODOME WK + 


1>r<c HVNVMNUAA 


dieresis 
overbar 
less 

not greater 
equal 

not less 
greater 

not equal 


divide 

plus 

times 

query 

omega 
epsilon 

rho 

tilde 

up (arrow) 
down (arrow) 
iota 

circle 

star 

right (arrow) 
left (arrow) 


v 
A 
' 
0 
( 
) 
c 
] 
c 
> 
n 
U 
4 
T 
| 


upstile 
downstile 
underbar 
del 

delta 

null 

quote 

quad 

open paren 
close paren 
open bracket 
close bracket 
open shoe 
close shoe 
cap 

cup 

base 

top 

stile 
semicolon 
colon 

comma 

dot 

slope 

slash 

space 


Figure 2.2: The APL Character Set 


Figure 2.3: Typical APL Keyboard 
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H-E D+»~rde PH SO GOOG? ¢ 


elelélyls lala li |S 
Z\X\/CI\VIBIN 


del stile 
delta stile 
circle stile 
circle slope 
circle bar 
log 

I-beam 

del tilde 
base null 
top null 
slope bar 
slash bar 
cap null 
quote quad 
quote dot 
domino 


Or -2DNK Hr TF OOO OPA? 2 


SEEEEEGEEE 
314 617 g9lol+ SPACE 
ABBAAABB 

T)Y JU) TF Piji¢ 
rslele (als [ele 

= il G EE 


foo l4ei era >< 


RETURN 


Negative numbers are represented by an overbar immediately 
preceding the number, for example, “1.44 and ~144F 72 are equivalent 
negative numbers. The overbar can be used only as part of a constant 
and is to be distinguished from the bar which denotes negation, as in 
~X. 3 


A single numerical constant entered by itself is accepted by the 
system as a scalar. A constant vector may be entered by listing the 
numerical components in order, separated by one or more spaces. A 
scalar character constant may be entered by placing the character 
between quotation marks, and a character vector may be entered by 
listing the characters between quotation marks. Such a vector is 
displayed by the system as the sequence of characters, with no enclosing 
quotes and with no separation of the successive elements. The quote 
character itself must be entered as a pair of quotes. Thus, the 
abbreviation of CAWNOT is entered as 'CAN''ft and prints as CAN'T. 


SPACES 


The blank character is used primarily as a separator. The spaces 
that one or more blank characters produce are needed to separate names 
of adjacent defined functions, constants, and variables. For example, 
if F is a defined function, then the expression 3 F 4 must be entered 
with the indicated spaces. The exact number of spaces used in 
succession is of no importance, and extra spaces may be used freely. 
Spaces are not required between primitive functions and constants or 
variables, or between a succession of primitive functions, but they may 
be used if desired. For example, the expression 3+4 may be entered with 
no spaces, ee 


FUNCTIONS 


The word "function" derives from a word which means to execute or 
to perform. A function executes some action on its argument (or 
arguments) to produce a result which may serve as an argument to another 
function. For example: 


3x4 
12 

2+( 3x4) 
14 

(-6)#3 


“9 


A.function (such as the negation used above) which takes one 
argument is said to be monadic, and a function (such as times) which 
takes two arguments is said to be dyadic. All APL functions are either 
monadic or dyadic or, in the case of defined functions only, niladic 
(taking no argument). Certain of the special symbols are used to denote 
two different functions, one monadic and the other dyadic. For example, 
X-¥ denotes subtraction of Y from X (a dyadic function), and -¥Y denotes 
negation of Y (a monadic function). Other examples appear in Figures 
3.1 and 3.5. a 


Each of the primitive functions is denoted by a single character 
or by an operator (discussed in Section 3) applied to such a character. 
For example, + and x are primitive functions as are +/ and.x/ (since / 
denotes an operator). es 
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ORDER OF EXECUTION 


Parentheses are used in the familiar way to control the order of 
execution in a statement. Any expression within matching parentheses is 
evaluated before applying to the result any function outside the 
matching pair. 


_ In conventional notation, the order of execution of an - 
unparenthesized sequence of monadic functions may be stated as follows: 
the (right-hand) argument of any function is the value of the entire. 
expression to the right. For example, Log Sin Arctan x means the Log of 
Sin Arctan x, which. means Log of Sin of Arctan x. In APL, the same rule 
applies to dyadic functions as well. Moreover, .all functions, both 
primitive and defined, are treated alike; there is no hierarchy among . 
functions (such as multiplication being done before addition or 
subtraction). : 


An equivalent statement of this rule is that an unparenthesized 
expression is evaluated in order from right to left. For example, the 
expression 3x8[3*|5-7 is equivalent to 3x(8f(3*(|(5-7)))). Their result 
is 27. A consequence of the rule is that the only substantive use of 
parentheses is to form the left argument of a function. For example, 
(12+3)x2 is 8 and 12:3x2 is 2. However, redundant. pairs of parentheses 
can be used at will. Thus, 12+(3x2) is also 2. iar 


ARRAYS | 


‘APL functions apply to collections of individual items called. 
arrays. Arrays range from scalars, which are dimensionless, to 
multi-dimensional arrays of arbitrary rank and size. 


The vector is a simple form of array which may be formed by 
listing its elements as described in the discussion of constants. For 
example: : . ee 


V+2 3.5 7 11.13 47 19 
A+ ABCDEFGH* 


The elements of a vector may be selected by indexing. For example: 
V[3 1 5] 
ode 
ACs 5 1 4] 
HEAD 


Arrays of more complex .structure may be formed with the reshape 
function denoted by p: . , 


M+2 “pV . B+2 4A | 


M wee B 
a en cae oe -. ABED 


“44 13 47 19 _ EFGH 
These résults have two dimensions or axes and are called tables.or 
Matrices. A matrix has two axes and is said to be of rank 2; a vector 
has. one axis and is of rank 1. pe . 


The left argument 2 4 in the foregoing examples specifies ee 
shape of the resulting array. Arrays of arbitrary shape and rank may be 
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produced by the. same scheme. For example: 


T+2 3 4p 'ABCDEFGHIJKLMNOPQRSTUVHX' 
oe . 
ABCD © ° 
EFGH 
» TSKL 


. MNOP 
QRST 
| UVWX 


The shape of an array can be determined by the monadic function 
denoted by op: e : : 


ov pM ef 
8 24 234 


Elements may be selected from any array (other than a scalar) ‘by 
indexing in the manner shown for vectors, except that indices must be 
provided for each axis: 


~ MC233] oy 7023134) 
417 Saree ee ot Bip S 
“ M~2 132 3 4] 7T[23;1 2 331 2.3 4] 
13°17 19 Se ‘MNOP . : 
3°85 ° #7 ' QRST 
UVWX 


The indexing used in the foregoing examples is called 1-origin 
because the first element along each axis is selected by the index 7. 
One may also use o-origin indexing by setting the index origin to o. 
The index origin is a system variable (See Section 4) denoted by Qro. 
Thus: woe : % 


oro+1 “ . Oro+0 


VO1 2:3] ~- VO 1 2] 
23 5 23.5 

B[2;3] B(1;3;2] 
G G 


All further examples assume i-origin unless otherwise stated. 


WORKSPACES AND LIBRARIES 


The common organizational unit in an APL system is the workspace. 
When in use, a workspace is said to be active, and it occupies a block 
of working storage in the central computer.. Part of each workspace is 
set aside to serve the internal workings of the system, and the 
remainder is used, as. required, for storing items of information and for 
containing transient information generated in the course of a 
computation. 


An active workspace is always associated with a terminal during a 
work session, and all transactions with the system are mediated by it. 
In particular, the names of variables (data items) and defined functions 
(programs) used in calculations always refer to objects known by those 
names in the active workspace; information on the progress of program 
execution is maintained in the state indicator of the active workspace; 
and control information affecting the form of output is held within the 
active workspace. 
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Inactive workspaces are stored in libraries, where they are — 
identified by arbitrary names. They occupy space in secondary storage 
facilities of the central computer and cannot be worked with directly. 
When required, copies of stored workspaces can be made active, or 
selected information may be copied from them into an active workspace. 


Libraries are either private or public. Private libraries are 
associated with individual users of the system, and are identified by 
the user's account number. Access to them by other users is restricted 
in that one user may not store workspaces in another person's library, 
nor obtain a listing of the workspaces already stored there. However, 
one user may activate a copy of another user's unlocked workspace if he 
knows the library number and workspace name. Workspaces and tibraries 
are managed by system commands as described in Section 8. 


NAMES 


Names of workspaces, functions, variables, and groups (see Section 
8) may be formed of any sequence of. alphabetic and numeric eneraetare 
that starts with an alphabetic and-contains no blank. gis hg 


The environment in which APL operations take place is bounded by 
the active workspace. Hence, the same name may be used to designate 
different objects (that is, groups, functions, or variables) in 
different workspaces, without interference. Also, since workspaces 
themselves are never the subject of APL operations, but only of system 
commands, it is possible for a workspace to have the same ‘name as an 
object it holds. 


Stored workspaces and the information they hold can be: protected 
against unauthorized use by associating a lock, comprising a colon and a 
password of the user's choice, with the name me of the workspace, when the 
workspace is stored. In order to activate a locked workspace or. copy 
any information it contains, a colon and the password must again be 
used, as a key, in conjunction with the workspace name. Listings of 
workspace names, including. those in public libraries, never give the 
keys, and do not overtly indicate the existence of a lock. 


USER IDENTIFICATION 


Account numbers can be similarly protected by locks and keys, thus 
maintaining the security of a user's private library and avoiding 
unauthorized charges against his account. Passwords for locks and keys 
may be formed of any sequence of alphabetic and numeric characters. In 
use as either a lock or key, a password follows the number or name it is 
protecting, from which it is. set off by a colon. 


APL systems. differ in the procedure penuiced: ea sign on or - begin a 
session. However, a numerical identification of the user is S usually 
provided in. some manner, SO that it can be used se) specify the Eirst 
element of QALI.. 
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SECTION 3: PRIMITIVE FUNCTIONS AND OPERATORS 


The primitive functions fall in two classes, scalar, and mixed. 
Scalar functions are defined on scalar arguments and are extended to 
other arrays item-by-item. Mixed functions are defined on arrays of 
various ranks and may yield results which differ from the arguments in 
both rank and shape. Five primitive operators apply to scalar dyadic 
functions and to certain mixed functions to produce a large number of 
new functions. 


The definitions of certain functions depend on certain system 
variables whose names begin with the symbol 0 (as in [ro and (CT). 
These system variables are discussed further in Section 4. 


SCALAR FUNCTIONS 


A monadic scalar function extends to each item of an array 
argument; the result is an array of the same shape as the argument and 
each item of the result is obtained as the monadic function applied to 
the corresponding item of the argument. 


A dyadic scalar function extends similarly to a pair of arguments 
of the same shape... To be conformable, the arguments must agree in 
shape, or at least one of them must be a scalar or one-element vector. 
If one of the arguments has only one item, that item is applied in 
determining each element of the result. For example: 


1 2 3x4 5 6 


4 10 18 
3+4 5 6 
7 8 9 
2 344 5 6 


LENGTH ERROR 


Each of the scalar functions is defined on all real numbers with 
two general exceptions: the four boolean functions are defined only on 
the numbers 0 and 1, and the functions = and # are defined on characters 
as well as numbers. Specific exceptions (such as 4+0) will be noted 
where appropriate. 


The scalar functions are summarized in Figure 3.1 together with 
their symbols and brief definitions or examples which should make their 
use clear. The remainder of this section is devoted to more detailed 
definitions. 


A dyadic function f may possess a pit identity element LZ such 
that bf X equals X for any X, or a right identity element R such that 
X £ R equals X. For example, one is a right identity element of :+ since. 
X+1 is X, zero is a left or right identity of +, one is a left or right 
identity of x, and the general logarithm function @ has no identity 
element. 


Identity elements become important as the appropriate result of 
applying a function over an empty vector; for example, the sum over an 
empty vector is 0, (the identity element of +), and the product over an 
empty vector is 1, the identity element of x. These matters are 
discussed further in the treatment of the reduction operator which | 
concerns such applications of dyadic functions over vectors. 


Figure 3.2 lists the identity elements of the dyadic scalar 


functions. The relational functions <, <, =, 2, > and # possess no true 
identity elements, but do when considered as boolean functions, that is, 
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Monadic form £B Dyadic form AfB 


Definition Name Definition 
or example or example 
+ i : 


+B is B Conjugate Plus 


-B is 0-B ' Negative Minus 


xB is (B>0)-B<0 Signum Times is 6.4 


+B is 14B Reciprocal Divide is 0.625 


{~3.14 is 3.14 Magnitude Residue A|B is B-AxLB+A+A=0 


as an [B Floor 
Ceiling 

?B is Random choice Roll 

from 1B 


Minimum 3L7 is 3 


Maximum 3[7 is 7 


Deal A Mixed Function (See 


Figure 3.5) 


*B is (2.71828..)*B Exponential Power 2*3 is 8 


Natural 
logarithm 


exV is W is xeN General A®B is Log B base A 


logarithm | 4e@B is (@B)+@A 


is Bx3.14159... Pi times 


Circular, Hyperbolic, Pythagorean 
(See table at left) 


AIB is (tB)#(!A4)x!B-A 
2!5 is 10 3!5 is 10 


fo is 1 Factorial Binomial 
'B is Bx!B-1 


'B is Gamma(B+1) 


is 0 ~o is 1 


AAB| AVBIANB| AB 


C(1-Bx2)*.5 (1-Bx2)*.5 
‘Arcsin B Sine B 
Arccos B Cosine B 
Arctan B Tangent B 

"414+B%2)*.5 (1+Bx2)%.5 

Arsinh B Sinh B 

Arcosh B Cosh B 

Artanh B Tanh B 


Relations 
Result is 1 if the 
relation holds, 0 
if it does not: 

357 is 1 
753 is 0 


NOOFWNRO 


Greater 
Not Equal 


KRVINV UIA A 


Table of Dyadic o Functions 


Figure 3.1: Primitive Scalar Functions 
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when restricted to the domain 0 and 1. 


included in the figure. 


Dyadic Identity Left- 
Function Element Right 
L R 


Plus 
Minus 
Times 
Divide 
Residue 
Minimum 
Maximum 
Power 
Logarithm 
Circle 
Binomial 
And 

Or 

Nand 

Nor 

Less 

Not greater 
Equal 

Not less 
Greater 
Not equal 


(note 1) 
(note 2) 
1 


for 
boolean 
arguments 
only 


RYVYVNVU AA €2%< > +O @ * TM — te xk 1A 


OCORBRO 


Note 1: the largest representable 
number 


Note 2: the greatest in magnitude 
of representable negative numbers 


Figure 3.2: Identity Elements of 
Primitive Scalar 
Dyadic Functions 


PLUS, MINUS, TIMES, DIVIDE AND RESIDUE 


defined to yield the value 1. 


The definitions of the first four of these functions agree with 
the familiar definitions except that the indeterminate case 0:0 is 
For X#0, the expression X:0 evokes a 


domain error. 


remainder on dividing A into B. 


If A and B are positive integers, then the residue A|B is the 
The following definition covers all 


values of A and B: 


1. 
2. 


If A=0, then A|B equals B 
If A#O, then A|B lies between A and zero (being permitted to equal 
zero but not A) and is equal to B-NxA for some integer NV. 


For example: 


0.385 


1|2.385 0|5.8 3 
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These identity elements are 
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CONJUGATE, NEGATIVE, SIGNUM, RECIPROCAL, MAGNITUDE 


The conjugate function +X yields its argument unchanged, the 
negative function -X yields the argument reversed in sign, and the 
reciprocal +X is equivalent to 1:X. For example, if x+4 ~5, then: 

_ +X 7 -X +X 
475 74H Ss 0.25 “0.2 


The result of the signum function xx depends on the sign of its 
argument, being “1 if x<0, and 0 if xX=0, and 1if xX>0. The magnitude 
function |X (also called absolute value) yields the greater of X¥ and -X; 
in terms of the signum function it is equivalent to XxxxX. For example: 


7 x3 0 4 173 0 4 
107 304 


BOOLEAN AND RELATIONAL FUNCTIONS 


The boolean functions and, or, nand (not-and), and nor (not-or) 
apply only to boolean arguments, that is, 0 and 1; if 0 is interpreted 
as false, and 1 as true, then the definitions of these functions are 
evident from their names. For example, AAB (read as A and B) equals 1 
(is true) only if A equals 1 (is true) and B equals 1. All cases are 
covered by the following examples: 


A+O0 011 
B<O 101 
AAB AVB AxB ANB" 


000 14 oiti1a1 1110 100 0 


The monadic function not yields the logical complement of its 
argument, that is ~0 is 1, and ~1 is 0. 


_The relational functions apply to any numbers, but yield only 
boolean results, that is 0 or 1. The result is 1 if the indicated 
relation holds, and 0 otherwise. For example: 


3. 5<5 3 3.5 7#7 5 3 
10 1od 


The comparisons involved in determining the results of the 
relational functions are not absolute, but are made to a certain 
tolerance specified by the comparison tolerance OCT. ‘Two scalar 
quantities A and B are considered to be equal if the magnitude of their 
difference does not exceed the value of OCT multiplied by the larger of 
the magnitudes of A and B, that is, if (|A-B) is less than or equal to 
Ocrx(|A)T |B. 


Similarly, A2B is considered to be true if (A-B) is greater than 
or equal to -O¢CTx({A)[C |B), and A4>B is considered true if A2B is true 
and A=B is not. 


The comparison tolerance [CT is typically set to the value 1f 13. 
The setting OCT<0 is also useful since it yields absolute comparisons, 
but may lead to unexpected results due to the finite precision of the 
representation of numbers. For example, if the maximum precision is 16 
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decimal digits and all digits are displayed in printing, then: 


Ocr<o 
X*243— 
4 
0.6666666666666667 
Y<3xX 
Y-2 
~2,.220446049250313F 16 
2=Y 
0 
OcT<1F 13 
2=Y 
1 


.When applied to boolean arguments only, the relations are, in 
effect, boolean functions, and denote functions which may be familiar 
from the study of logic, although referred to by different names and 
symbols. For example, X#Y is the exclusive-or of xX and ¥Y, and xsy is 
material implication. This association should be clear from the 
following table, which lists in the first two columns the four possible 
sets of values of two boolean arguments, and in the remaining columns 
the values of the 16 possible boolean functions, with the symbols of the 
boolean and relational functions of APL appended to appropriate columns: 


AB AfB 

CO OOO O50 000.4 A ait at 

OAs 80y OOO he ea ON: Ory a a 4 

40.0 0) 0 Od 4) OO t Ove ta 

SS Osa Os 19 0 OO Oe Dead 
A> < *#+ VW = 2 <n 


The ten functions listed at the foot of this table embrace all 
non-trivial boolean functions of two arguments. Consequently, any. 
boolean expression of two arguments X and Y can be replaced by a simple 
APL expression as follows: evaluate the expression for the four 
possible cases, locate the corresponding column in the table, then use 
the function symbol at the foot of the column, or, if none occurs, use X 
or Y or ~X or ~Y or 0 or 1 as appropriate. 


MINIMUM AND MAXIMUM 


The functions denoted by | and [ perform as expected from their 
names. For example: 7 é 


FLOOR AND CEILING 

The floor function L yields the integer part of its argument, that 
is, £X yields the largest integer which does not exceed X. Similarly, —_ 
[X yields the smallest integer which is not less than xX. For example: 


X¥*+73.14 2.718 
LX x 


pop 2 “=X 
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- The ceiling and floor functions. are. affected by the comparison. 
tolerance Oe? as follows: if there is an integer rf for which |X-I doae. 
not exceed the value of [c7, then both LX and [xX equal If. For example, 
if results are represented and printed to 16 decimal digits, then: 


X<3x223 
OcTr+1z 13 Oer+o 
LX LX 
2 2 
ae [Xx 
2 3 


ROLL (Random number function) 


The roll. is a monadic function named by analogy.with the roll of a 
die; thus ?6 yields a (pseudo-) random choice from:16, that is the first 
six integers beginning with either 0 or 1. according to the value of. the 
index origin O70. For example: : 

; Oro+1- ea Bed 

2605, 26 76 
de eas Y Sie se ane cn 

76.6 6666666 666 6 
42155 63453141414 5 

OI0+0 

76666666666 6 6 6 
02024355303 24. 


The domain of the roll function is limited to positive integers. 


The roll function employs an algorithm due to D. H. Lehmer: the 
result for each scalar argument X is a function of X and of ‘the 
random link variable DAL. The result-of the roll function is 
system dependent, but typically for X<2*31 is Peet to OI0 pine, 
the anteges part of iad 414+2*31.. 


POWER, EXPONENTIAL, GENERAL AND NATURAL LOGARITHM 


For non-negative integer right arguments the power function xX*¥ is 
simply defined as the product over NW repetitions of x. It is 
generalized to non-positive and non-integer arguments so as to preserve 
the relation that X*A+B shall equal (X*A)x(X*B). Familiar consequences. 
of this extension are that X*-N is the reciprocal of X*W, and X*x+W is 
the Wth root of xX. For example: a 


2x3 "2 1012 3 
.125 .25 .512 4 8 
64x41 234 5 6 
64 8 4 2.828 2.297 2 


The indeterminate case 0x*0 is defined to have the value 1. 


The domain of. the power function X*Y is restricted in two ways: 
if xX=0, then Y must be non-negative; if .x<0, then ¥Y must be.an integer 
or a (close approximation.to a) rational number with an odd denominator. 
For example, .8*.5 yields:-a domain error, but ~8*1+3 and-~8*2+3 yield “2 
and 4, respectively. 


The exponential function *X is equivalent to the ‘expression exX, 
where e is the base of the natural logarithms, approximately 2.71828. 
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For example: 


x72 “101 2 
0.1353352832 0.3678794412 1 2.718281828 7. meee ners 


The. natural logarithm function eX is the. inverse of the 
exponential, that is, *eX and exX both equal x. For example: 


e123 4 

0 0.6931471806 1.098612289 1.386294361 
*@1 23 4 , 

123 4 
@*1 2 3 4 

1°23 4 


The domain of the natural logarithm function is limited to 
positive numbers. 


The general togaiedthm function Bex is defined as (@X)+@B. It is 
inverse to the power function in. the following sense: Bx*xBeX and BeB«Xx 
both equal X. Limitations on the domain follow directly from the 
defining expression. 


CERCULAR PEPRREOUIC? AND PYTHAGOREAN FUNCTIONS 


‘The symbol fo) denotes a ‘monadic funetion whose result: equals pi 
times its argument. For example: 


o1 2.5 
3.441592654 6.283185307 1.570796327 


The symbol o is also used dyadically to denote a ‘family of fifteen 
related functions as follows: the expression IoxX is defined for integer 
values of I from” 7 to 7, and is in each case equivalent to one of the 
circular, hyperbolic, or pythagorean functions as indicated in Figure 
3.1. 


The arguments for the circular functions Sin, Cos, and Tan (10%, 
20X, and 30X) are in radians. For example: 


PI<o1 
10PT+#2 3 4 
47055 8660254038 QO. 7071067812 


The hyperbolic functions sinh and cosh are the odd and even 
components of the exponential function; that is, 50X is odd, 60x is. 
even, and the sum (50X)+(60X) is equivalent to *X. Consequently: 


50X equals .5x(*X)-(«-X) 
60X equals .5x(*#X)+(*-X) 


The definition of the hyperbolic tangent is analogous to that of the 
tangent, that is, 70X equals (50X)+60X. 


The three pythagorean functions 00x, 40x, and “40X are defined as 
in Figure 3.1, and are related to the properties of a right triangle as 
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indicated in Figure 3.3. They may also be defined as follows: 


“Hox equals 50 60X 
00x equals 20°10X or 10° 20x 
4oX equals 60 50X 


AC=1 
AB=00BC . 
BC=00AB 
AE=40DE 
-DE=" 40AE 


The Pythagorean. Functions 


Figure 3.3 


Each of the family of functions Jox has an inverse in the family, 
that is, (-I)0X is the inverse of [ox.. Certain of the functions..are not 
monotonic, and their inverses are therefore many-valued. The principal 
values are chosen in the following intervals: 


Arcosh R< 60X R20 

R<” 40x R20 
Arccos Re°20X  - (R20) A(Rs01) 
Arcsin R< 10X (|R)so.5 


R<« Q0OX R20 
R+ 4OXx R20 


FACTORIAL AND BINOMIAL FUNCTIONS 


For positive integer arguments, the factorial function !W is 
defined as the product of all positive integers up to W. An important 
consequence of this definition is that !W equals NWx!N-1, or, 
equivalently !W-1 equals (!W¥)+¥. This relation is used to extend the 
function to non-integer and negative arguments. For example: 


N+1 234 5 
tN 


Fe.5 11.5 2 2.5 
'F 
0.8862269255 1 1.329340388 2 3.32335097 
('tF)tF 
1.772453851 1 0.8862269255 1 1.329340388 
7.50.54 %4.5 
1.772453851 1 0.8862269255 1 1.329340388 


“1 is therefore excluded from the domain of factorial, as are all 
negative integers. 


This extension leads to the expression (!0)+0, or 1+#0 for !°1, and 
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The binomial function M!W is defined, for non-negative integer 
arguments, as the number of distinct ways in which mM things can be 
chosen from N things. The expression (!N)+(!M)x(!W-M) yields an 
equivalent definition which is used to extend the definition to all 
numbers. Although the domain of factorial excludes negative integers, 
the domain of the binomial does not, since any implied division by zero 
in the numerator !N” is invariably accompanied by a corresponding 
division by zero in the denominator; the function therefore extends 
smoothly to all numbers. 


The result of I!W is equivalent to coefficient I in the binomial 
expansion (X+1)*W . For example: 


0 1 2 3!3 
13314 


OPERATORS 


_ “An operator may be applied to a function to yield a different 
function. For example, the outer product operator denoted by the 
symbols °. may be applied to any of the primitive scalar dyadic 
functions to produce a corresponding "table function" as illustrated 
below for times and power: 


Att 234 

Ao,xA Aco .*A 
a 2 3 4 Hl 4 4 ah 
2 4 6 8 2 4 8 16 
3 6 9 12 3 9 27 81 
4 8 12 16 4 16 64 256 


Four of the APL operators - reduction, scan, inner product, and 
outer product - apply to any primitive scalar dyadic function. The axis 
operator applies to reduction and scan , and also to certain of the 
mixed functions. 


REDUCTION 


Reduction is denoted by the symbol / and applies to the function 
which precedes it. For example, if V+1 2 3 4 5, then +/V yields the sum 
of the items of V, and x/V yields their product: 


+/V : x/V 
15 120 


In general, an expression of the form £/V is equivalent to the 
expression obtained by placing the function symbol f between adjacent 
pairs of items of the vector I: 


P/V af2far4fs 
5 5 

-/V 1-2-3-4-5 
3 3 


The last example points yp the fact that the general rule for the 
order of execution is applied, and that as a consequence the expression 
-/V yields the alternating sum of the items of VY. The alternating sum 
is defined as the sum obtained after first weighting the items by 
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multiplying alternate elements by 1 and “1. Thus: 


VxA 
1°23 4 5 

+/VxA 
3 

-/V 
3 


Similarly, +/V yields the alternating product: 


Vea 
1) eB 8. 25 “5 

x/VeA 
1.875 

+/V 
1.875 


The result of applying reduction to any scalar.or vector is a 
scalar; the value in the case of a scalar or one-element vector argument 
is the single item itself. The application of reduction to other arrays 
is treated in the discussion of the axis operator. 


Reduction of an empty vector by any function is defined as the 
identity element of the function if one exists, as a domain error if 
not. Thus if V is an empty vector, +/V equals 0, and A/V equals 1. 


The reason for this definition is the extension to empty vectors 
of an important relation between the reductions of two vectors P and @ 
and the reduction of the vector V+P,@ obtained by chaining them 
together. For example: 


+/V . equals (+/P)+(+/Q) 
x/V equals (x/P)x(x/@) 


If P is an empty vector it is clear that +/P must equal 0 (the identity 
element of +), and that x/P must equal 1. 


SCAN 


The scan operator is. denoted by the symbol \ and applies to the 
function which precedes it. When the resulting function is applied to a 
vector V it yields a vector of the same shape whose Kth element is equal 
to the corresponding reduction over the first K elements of 7. For 
example: 


t\1 23 4 5 
13 610 15 

x\1 23 4 5 
12 6 24 120 

v\0 0 101 
001.141 

A\1 1010 
114000 

<\o 0141041410 
00120000 


nh 
| 
wn 
cr 
H 
o 
9 
ct 
@ 
rer 
[a 
3 


The extension of scan to arrays other than vector 
the discussion of the axis operator. 
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AXIS 


Since reduction is defined on vectors, and since a matrix can be 
conceived as a collection of row vectors, the result of reduction on a 
matrix could be defined as the vector of results obtained by reduction 
of each of the row vectors. However, a matrix can also be viewed as a 
collection of column vectors, and reduction could be defined 
accordingly. It is therefore important to be able to specify which set 
of vectors is to be reduced. 


The row vectors extend along the second axis of the matrix, and 
are each of length equal to the length of that axis. Similarly, the 
column vectors extend along the first axis and, in general, the index of 
an axis identifies a set of vectors in an array of any non-zero rank. 


The axis operator is denoted by brackets enclosing an expression 
which yields the index of an axis as a one-element vector or a scalar. 
It determines the direction of application of any scan or reduction 
operator whose symbols immediately precede it. For example: 


M+3 4p112 +\CiI1M +\C21M 
1 2 3 4 4 2 3 4 1. “3 6 10 
6 6 7 8 6 8 10 12 5 11 18 26 
910 1411 12 15 18 21 24 9 19 30 42 
+/C1i1M 
15 18 21 24 
+/L21M 
10 26 42 


The shape of the result of scan equals the shape of the argument. 
The shape of the result of reduction equals the shape of the argument 
except that the indicated axis of reduction is removed. The indexing of 
axes depends on the index origin [Io. 


If no axis operator occurs, reduction and scan apply along the 
last axis. The symbols / and \ also denote reduction and scan, but in 
the absence of axis operators they apply along the first axis. 


The axis operator is also used to specify the axis of application 
of the mixed functions reverse, rotate, compress, and expand. 


INNER PRODUCT 


If P and @ are vectors of the same shape, then the expression 
+/Px@ has a variety of useful interpretations. For example, if Pisa 
list of prices and Qa list of corresponding order quantities, then 
+/PxQ is the total cost. Expressions of the same form employing 
functions other than + and x are equally useful, as suggested by the 
following examples (where B is used to denote a boolean vector): 


A/P=Q Comparison of P and Q. 
+/P=Q Count of agreements between P and Q. 
L/P+Q Minimum distance for shipment, where P represents the 


distances from source to transhipment points and q@ the 
distances from these points to the destination. 

+/PxB Sum over a subset of P specified by B. 

x/PxB Product over a subset of P specified by B. 


The inner product produces functions equivalent to expressions in 


this form; it is denoted by a dot and applies to the two functions which 
surround it. Thus P+.xQ@ is equivalent to +/PxqQ, and Px.*B is equivalent 
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to x/P*B, and, in general, Pf£.gQ is equivalent to £/PgQ, if P and @ are 
vectors. 


The inner product is extended to arrays other than vectors along 
certain fixed axes, namely the last axis of the first argument and the 
first axis of the last argument. The lengths of these axes must agree. 
The shape of the result is obtained by deleting these axes and chaining 
the remaining shape vectors together. The consequence for matrix 
arguments is illustrated in Figure 3.4. The consequences for the shape 
of inner products on some other arrays are illustrated below: 


oA eB -2€ 2 oF oF eG of 

3 5 527 7 9 9 8 8 6 7 7 
3272 Z 6 (scalar) 
pA£.gB eC£E.gD pHE.gF pGf.gH 


“Formally, pAf.gB equals (~1+pA),1+pB. 


The inner product M+.xN is commonly called the matrix product. 
Examples of it and other inner products follow: 


P+2 357 

M<e(i4)o.<14 

M M+.xM MA.=M M-.xM 
4 4 123 4 00017 1 0 1 0 
o11i1 012 3 0000 0-1 04 
oo11 0012 0000 0 0 1 0 
0001 ooo 0000 0 0 074 

M+.xP P+.xM Px .*M MA.=0 011 
17.15 12 7 25 10 17 2 6°30 210 0010 


Figure 3.4: Inner Product 
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_ Either argument of an inner product may be a scalar or a 
one-element vector; it is extended in the usual manner. For example, 
A+.x1 is equivalent to +/A, and i+.xA is equivalent to +/A. 


OUTER PRODUCT 


The outer product operator, denoted by the symbols °. preceding 
the function symbol, applies to any dyadic primitive scalar function, 
so that the function is evaluated for each member of the left argument 
paired with each member of the right argument. For example, if 
A«1 2 3 and B+1 2 3 4 5: 


Ao,xB - Ao,<B 
4 2 3 4 5 otiiad1 
2 4 6 8 10 oo0ot1.1 
3 6 9 12 15 oo0ootil 


Such tables may be better understood if labelled in a way widely used in 
elementary arithmetic texts: values.of the arguments are placed beside 
and above the table, and the function. whose outer product is being 
computed is shown at the corner. Thus: - 


Meaford 2 Sd SU oe rae Nene pe ee ec |e noe) 
a ae 2 3 4 5 4 1 1 1 1 
A Sub Se 4 6 8 10 A 2°} 0 0 Bae 1 
ae ee ae Ge ake ai 10 o 0 1 1 


In the foregoing example the shape of the result Ao.xB is clearly 
equal to (p4),(pB). This expression yields the shape for any arguments 
A and B.: Thus if R+«Ac.+B and A is a matrix of shape 3 4 and B is a 
three-dimensional array of shape 5 6 7, then # is a five-dimensional 
array of shape 3 4 5 6 7. Moreover, RII3;/;X;L;M] equals ALI;71+BCK;1;M] 
for all possible values of the indices. 


MIXED FUNCTIONS 


The mixed functions are grouped in five classes according to 
whether they concern the structure of arrays, selection from arrays, the 
generation of selector information for use by selection functions, 
numerical calculations, or transformations of data such as that between 
characters and numbers. All are listed in Figure 3.5 together with 
briet definitions or examples. 


Those functions which may be modified by an axis operator may also 
be used without an axis operator, in which case the axis concerned is 
the last, or, in the case of the functions denoted by e and by /, the 


first. 
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i 


Shape 


Reshape 
Ravel 
Reverse” 


Rotate > 


Catenate, 
Laminate 


Transpose> 


Take 


Drop 


Compress” 


Expand > 


Indexing?** 


Index 3 
generator 


Index of? 


Membership 


Grade up? 
Grade down? 
peal? 
Matrix 
inverse 
Matrix 
division 
Decode 
Encode 
Execute 


Format, 
monadic 


Format, 
dyadic 


Coordinate J of 4A. 


Definition or example ” 


pP is 4 epFis 34 e5 is 10 
Reshape A to dimension 7¥ 


3 49112 is EF 
12pF is 112 OpF is 10 ug 


wy 


sA is (*/pA)pA Eis 112. »,5 is 1 


DCBA. ISKL 
oX is HGFE oC11X is eX is -FFGH 
LKJI ° $P is 7532. °  ‘asep 


= BCDA 
3¢P is 7 2 3 5 is ~1oP _ 10 “10X% is FFGH 
LIdK 


P,i2is 2357412 
P,[.5]P is 2 3 
23 


'T','HIS' is 'THIs' 

5 7 

5 7 

: AEI 
: 2. 18X is. BFIJ 
becomes coordinate | - CGK 
VII] of result 1 1af is 1°6 114 DHL 


Reverse order of coordinates az is 2 188 


(VEI1=0) or last (V[I1<0) EFG 


\ ts or drop |V[Z] first 2 34X is ABC 
“2+P is 5 7 


elements of coordinate I 


: 1 3 
101 0/Eis 5 7. 
9 41 
10 1/L1]2F is 1 2 3 4is 10 14E 
9 10 11 12 


101 0/Pis 25 


A BCD 
“104 4 4\X is E FGH 
I JkL 


10 1\12 is 10 2 


P[2] is 3 P[4 3 214] is 7 5 3 2 
E{1 333 214] is 3 2 1 
4110 9 
4 ie ABCD 
‘ABCDEFGHIJKL'(E] is EFGH 
IJKL 


F[1;J is 1 2 3 
Fl;31J is 159 


14 is 12.3 4 
10 is an empty 


First § integers 


Least index of A Pi3 is 2 : 
in V, or 1+pV Pik is 
4414 is 1 : 


eWeY is pW : FeP is 


/Per.4 is 1100 


.p would order V ({ascend- 


\ wou permutation which +35 3 
ing or descending) 


¥3 5 3 2 
W?Y is Random deal of W elements from iY 
2 2ef101is 1 “1 arguments may 

Oo 41 be scalars, 
(2 2pP)H2 201 101 is ~3 “4 vectors, or 

5 7 matrices 

1041 7 7 6 is 1776 24 60 6011 2 3 is 3723 
24 60 6073723 is 1 2 3 60 6073723 is 2 3 


is 3 e'P' is 2357 


xX is X 


tp IS 2.0 3.0 5.0 7.0 
1%p IS 2F00 3£00 5£00 7£00 


Figure 3.5: Primitive Mixed Functions 
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Notes to’ Figure 3.5 


1. Restrictions on 
argument ranks are 
indicated by: S for 
scalar, V for vector, 
M for matrix, and A 
for any array. See 
Figure 3.6 for 
exceptions. 
Conformability 
requirements are, 


given in the text 


whére each function 
is ‘defined. 


2. Arrays used in 
examples: 


P 
7 


E 


ABCD 
EFGH 
IdKL 


3. Function depends 
on index origin. 


4. Elision of any 
index selects all 
along that axis. 

5. The function is 
applied along the 
last axis; the 
symbols /, \, and 6 
are equivalent to /, 
\, and $,. 
respectively, except 
that the function is 
applied along the 
first axis. In 
general, the relevant 
axis is determined by 
[Vv] after the 
function symbol. 


1. A scalar may be used in place of a oné-element vector: 


a. as left argument of 


reshape 3p4 (,3)p4 
take. ‘ Bt15 (53)415° 
drop 3415 (,3)415 
_ expand oe 1\.5 Cs1)\.5° 
-transpose.. 18,5 > €,1)8,5 
format | 543.2 ++ (,5)¥3.2 «+ 0 5 ¥3.2 


right argument of 
execute cu? BBY der * eolPs 
branch +4 > >,4 

A scalar is extended to conform as necessary: 


a. as left argument of 


compress K 4/ 1-3 << 161 
11 


Pe, 
rotate 1602 2914 +7 | 2 


1 
Md + 


right. argument of 


compress 
expand 
take 
A one-element vector is permitted in place of 
a. as left argument of 


deal - : (,3)?5 C2. 
rotate (,2)02 35 7 ++ 262.357, 


right argument of 


index generator i,5 
deal 37455 


Figure 3.6: Scalar-Vector Substitutions for Mixed Functions 


Figure 3.5 gives restrictions, in summary form, on the ranks of 
arguments which may be used with each mixed function. Figure 3.6 shows 
for what mixed functions and under what conditions scalar and vector ~ 
arguments may be substituted for each other. 


STRUCTURAL FUNCTIONS 


In the monadic structure functions the argument may be of any 
type, numeric or character. In the dyadic selection and structure 
functions one argument may be of any type and the other (which serves as 


an index or other selection indicator) must be numeric, and in two cases 
(compression and expansion) is further restricted to be boolean. 


Shape Reshape and Ravel 


The monadic function p applied to an array A yields the shape of 
A, that is, a vector whose components are the dimensions of A. For 
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example, if A is the matrix — 


1 
5 6 7 8 
9 10 11 12 


of three rows and four columns, then eA is the vector 3 


Since pA contains one component for each axis of A, the expression 
ppA is the rank of 4. Figure 3.7 illustrates the values of pA and ppA 
for arrays of rank 0 (scalars) up to rank 3. In particular, the 
function p applied to a scalar yields an empty vector. 


0 1 

N 1 1 
MN 2 1 
LMWN 3 1 


Figure 3.7 SHAPE AND RANK VECTORS 


Scalar 
Vector 
Matrix 
3-Dimensional 


The monadic function ravel is denoted by a comma; when applied to 
any array A it produces a vector whose elements are the elements of 4 in 
row order. For example, if A is the matrix: 


2 4 6 8 
10: 42) fe. 46 
18 20 22 24 


and if ¥+,4 , then vy is a vector of dimension 12 whose elements are the 
integers 24681012 ... 24. If A is a vector, then ,4 is 
equivalent to A; if A is a scalar, then. ,A is a vector of length 1. 


The dyadic function p reshapes its right argument to the shape 
specified by its left argument. If M<DpV, then M is an array of 
dimension D whose elements are the elements of vy. For example, 

2 391 23 4 5 6 is the matrix 


1 2 3 
4 5 6 


If v, the total number of elements required in the array DpV, is 
equal to the dimension of the vector vy, then the ravel of DepV is equal 
to v. If W is less than pV, then only the first w.elements of y are 
used; if Nv is greater than py, then the elements of y are repeated 
cyclically. For example: ee ith : 


2 3p1 2 : . 3 3p1 000 


1 2 1 1 0 0 
2 4 2 0 4 0 
0 0 a 


More generally, if A is any array, then DoA is equivalent to Do,A- 
For example: ; iy ts ' : ara Se . 


A. a SE aS aR ~ 3 SpA. e . 
1 2B ates a re 2 3 y- § 
an ee 6 1 2.3 4 
5 6 4 2. 3 


The expressions 0pX and 0 3pX and 0 OpxX are all valid; any one or 
more of the axes of an array may have zero length. Such an array is 
called an empty array. If Dp is an empty vector, then DpA is a scalar. 
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Reverse and Rotate 


The monadic function reverse is denoted by 6; if xX is a vector and 
K<oxX, then x is equal to x except that the items appear in reverse 
order. The axis operator applies to reversal and determines the axis 
along which the vectors are to be reversed. For example: 


“A oL1JA $214 
1 #2 3 4 5 6 B82. oh 
4 5 6 1 2 3 6 5 4 


The expression ¢4 denotes reversal along the last coordinate of A, 
and eA denotes reversal along the first coordinate. For example, if A 
is of rank 3, then 94 is equivalent to $[3]A, and eA is equivalent to 
oCilA- 


The dyadic function rotate is also denoted by ¢. If K is a scalar 
or one-element vector and ¥ is a vector, then xox is a cyclic rotation 
of xy defined as follows: xox is equal to xX[i+(pX)|~1i+KX+ipxX]. For 
example, if x¥«2 3 5 7 11, then 2ox is equal to 5 7 11 2 3, and “26x is 
equal to 7 11 2 3 5. In o-origin indexing, the definition for Kox 
becomes X[(pX)|Kt+ipX]- 


If the rank of X exceeds 1, then the coordinate J along which 
rotation is to be performed may be specified by the axis operator in 
the form Z«Xo[J1X¥. Moreover, the shape of K must equal the remaining 
dimensions of X, and each vector along the Jth axis of X is rotated as 
specified by the corresponding element of K. A scalar or one-element 
vector K is extended to conform as required. 


For example, if pX.is 3 4 and J is 2, then the shape of K must be 
3 and Z[7;] is equal to K[T1]$x[I;]. If J is 1, then pX must be 4, and 
Z0;I] is equal to x[I]>xX{£;r]. For example: 


M 012 3¢[1]M 4 2 36[2]M 

1 2 ° 38 4 4 6 44 4 2 3 4 4 
5 6 7° 8 5 10 3 8 7 8 5 6 
9 10 11 


9 10 41-0 «12 9 2 7 12 12 


The expression xex denotes rotation along the first axis of Xx. 


Catenate and Laminate 


Catenate, denoted by a comma, chains vectors (or scalars) together 
to form a vector. For example: 


X*2,93 5 7 114 
XX 
2357411235 711 


In general, the dimension of x,y is equal to the total number of 
elements in x and y. A numeric vector cannot be catenated with a 
character vector. ‘ 


The axis operator applies to catenate and determines the axis 
along which vectors are to be catenated. For example; 


M<+3 39 'ABCDEFGHI' 


M M,C1I1M M,C21M M,M 
ABC ABC _ ABCABC ABCABC 
DEF DEF DEFDEF DEFDEF 
GHI GHI GHIGHI GHIGHI 
ABC 
DEF 
GHI 
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Two arrays are conformable for catenate along axis I if all other 
elements of their shapes agree. Moreover, two arrays may be catenated 
along axis 7 if they differ in rank by 1 and if the shape of the array 
of lower rank equals the shape of the array of higher rank after 
dropping item I from it. For example: 


V+'PQR! 

M,C11V -M,C21V M,V 
ABC ABCP ABCP 
DEF DEFQ DEFQ 
GHI GHIR GHIR 


PQR 


A scalar argument of catenate will be replicated to form a vector, or 
higher rank array, as required. For example: 


C+'Rt 
C,(¢,01)] C1] ¢),¢ 
fatates)a] a 
HABCH 
HDEFE 
HGHIB 
Bteletata| 


Laminate joins two arrays of identical rank and shape along a new 
axis. The position of the new axis relative to the existing axes is 
indicated by a fractional axis number. For example, if the new axis is 
to be inserted between the existing axes 1 and 2, the axis number must 
have a value between 1 and 2. If the new axis is to be inserted ahead 
of the present first axis, the axis number must be between 0 and 1 (or,- 
if zero-origin indexing is used, between “1 and 0). Similarly, if the 
new axis is to be after the last of the present axes, the axis number 
must exceed the index of the present last axis by a fraction between 0 
and, 1. 


The result of lamination has rank 1 greater than the rank of the 
arguments, and has the same shape except for the interpdlation of the 
new axis, along which it has length 2. The comma, which normally 
denotes catenation, followed by an axis operator assdéciated with a 
non-integral index produces lamination. For example: 


M+3 3p 'ABCDEFGHI' 
N+3 39'123456789' 
M M,C.51N M,[C1.51¥ M,C2.5]¥ 


ABC ABC ABC Al 

DEF DEF 123 B2 

GHI GHI C3 
N DEF 

123 123 456 Du 

456 456 £5 

789 789 my GHI F6 
789 

G7 

H8 

ra) 


The shapes of the foregoing laminations are 2 3 3 and 3 2 3 and 
3 3 2; the position of the 2 shows the point of new axis insertion in 
each case, 
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A scalar argument of laminate is extended as required. For 
example: 


B+2 20'1234' 
B,[2.5]'+' 
1+ 
2+ 


3t 
4+ 

»B,02.5]'+! 
1+24+3+4+ 


Transpose 


The expression 2 14” yields the transpose of the matrix M; that 
is, if R+2 19M, then each element A[I;7/] 1s equal to M[J;I]. For 
example: 


M. 2 18M 
1 2 3 4 1 5 9 
5 6 7 8 2 6 10 
9 410 11 12 3 7 11 
4 8 12 


If p is any permutation of the indices of the axes of an array A, 
then P&A is an array similar to A except that the axes are permuted: 
the rth axis becomes the P[{I]th axis of the result. Hence, if R<PXA, 
then (p2)[P] is equal to pA. For example: 


A+2 3 5 791210 


pA 
2 3 5 7 
: P23 4 1 
po PRA 
7 2 3 aes 


More generally, @aA is a valid expression if @ is any vector equal 
in length to the rank of 4 which is "complete" in the sense that if its 
items include any integer wy they also include all positive integers less 
than y. For example, if ppA is 3, then 112 and 211andii11 are 
suitable values for @ but 1 3 1 is not. Just as for the case P&A where 
p is a permutation, the [th axis becomes the Q@[I]th axis of QA. 
However, in this case two or more of the axes of A may map into a single 
axis of the result, thus producing a diagonal section of A as 
illustrated below: 


As3 3919 B+3 59115 
A B 
1 2 3 1 2.25303 4 5 
4 5 6 6 7 8 9 10 
7 8 9 44 12 13 14 «15 
1 1A 1 1828 
1 5 9 1 7 13 


The monadic transpose 8A reverses the order of the axes of its 
argument. Formally, 94 is equivalent to ($1ppA4)8A. In particular, for 
a matrix A this reduces to 2 1 QA and is what is commonly called the 
transpose of a matrix. 
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SELECTION FUNCTIONS 


The selection functions are all dyadic; one of the arguments may 
be an array of any type, and the other, which will be referred to as the 
selector because it serves to specify the selection to be made, must be 
Se . * 2 
numeric, and, in the case of expand and compress, is further restricted 
to boolean. 


Take and Drop 


If s is a non-negative scalar integer and y is a vector, then S+tV 
is a vector of dimension s obtained by taking the first s elements of V 
followed (if s>pv) by zeros if y is numeric and by Spaces if it is not. 
For example: 


342 357 74235 7 
235 2357000 
3t'ABCDE! _(7+*ABCDE'),'H! 
ABC ABCDE &@ 


If gs is a negative integer, then sty takes elements as above but 
takes the last elements of y and fills as needed on the left. For 
example: 


“342 35 7 “T4 
2 


3.5 7 
3.5 7 0 0 0 5 7 


2 
3 
If 4 is any array, then w+A is valid only if the vector w has one 


element for each axis of 4, and wW[I] determines what is to be taken 
along the rth axis of 4. For example: 


A+3 49112 

A 2 34A 2 “3ta 72 6tA 
1 2 3 4 12 3 23 4 5 6 7 8 0 0 
5 6 7 8 5 67 6 7 8 9101112 0 0 
9 10.11 12 


The function drop (+) is defined analogously, except that the 
indicated number of elements are dropped rather than taken. For 
example, “1 144 is the same matrix as the result of 2 ~3+4 displayed in 
the preceding paragraph. If the number of elements to be dropped along > 
any axis equals or exceeds the length of that axis, the resulting shape 
has a zero length for the axis. 


The rank of the result of take and drop functions is the same as 
the length of the left argument. 


Compress and Expand 


The expression U/X denotes compression of xX by Ue. If visa 
boolean vector and x is a vector of the same dimension, then u/X 
produces a vector of +/ly elements chosen from those elements of xX 
corresponding to non-zero elements of y. For example, if x<2 35 7 11 
and U+1 0110 then y/xy is 2 5 7 and (-U)/X is 3 i1. 


C<«'THIS IS AN EXAMPLE' 
D+c#' ! 
THISISANEXAMPLE 
To be conformable, the dimensions of the arguments must agree, 
except that a scalar argument is extended. Hence 1/xX is equal to X and 


0/X is an empty vector. 
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Expansion is the converse of compression and is denoted by uU\x. 
If yey\x, then y/y is equal to x and (~y)/yY is an array of zeros or 
Spaces according as x¥ is numeric or:character. In other words, U\X 
expands x to the format indicated by the ones in y and fills in zeros or 
spaces. To be conformable, +/y must equal px. 


D\C1 
THIS IS AN EXAMPLE 


The axis operator applies to both compress and expand. and 
determines the axis along which they apply. If the axis operator is 
omitted, the last axis is used. The symbols / and \ also denote 
compression and expansion, but when used without an axis operator apply 
along the first axis. , 


Q+3 4p tABCDEFGHIJKL' 


Q 
ABCD 
EFGH. 
ISKL by Ve A 

4 10 1\£11@ 011 0/@ 
ABCD BOne 2 a fe 
EFGH F@- 

JK 

IdKL 1 0 1/[11@ 

4 10 1%Q ABCD 
ABCD IdKE « 
EFGH 1 0 14Q 

ABCD . 

IJKL IdKL 


If the right argument is a scalar the result is a vector, 
otherwise the rank of the result of COMERS or sens equals the rank 
of the right arc aati 


Indexing 


Indexing may be either g-origin or 1-origin as discussed in 
Section 2. The following discussion assumes d-origin. If x is a vector 
and 7 is a scalar, then X[IJ denotes the [th element of x. For example, 
if x«2 35 7 11 then xy[2] is 3. 


If the index 7 is a vector, then x{7] is the vector obtained by 
selecting from x the elements indicated by successive components of [. 
For example, X[1 3 5] is 25 11 and x[5 4 321] is 11 75 3 2. If the 
elements of rf do not belong to the set of indices of x, then the 
expression x{I] ‘evokes an index error report.» 


“In: general ext rd equals ors “In particular, if zt is a scalar, then 
xCr] isa scalar, and ‘Lf rf is a matrix then y[I] is a matrix. For 
example: ker eer: : : 


A«'ABCDEFG* 


Ie4 3931442444424 14 4 
ng ALIJ 

3.0 fw CAD 

2-1-4. BAD 

yo 2 DAB 

4 41°74 * DAD 


If m is a matrix, then yw is indexed by a two- eae age of the form 
I; J where 7 selects the row (or rows) and Jf selects the column (or 
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columns). For example: 


MS Me ee PROMPT 28 de oa 2 ME1 332.3 47 


In general, pM{I;J] is equal to (pI),pJ. Hence if I and J are 
both vectors, then M[I;J] is a matrix; if both I and J are scalars, 
M(I;J] is a scalar; if I is a vector and J’ is a scalar (or vice versa), 
MLI;J] is a vector. The indices are not limited to vectors, but may be 
of higher rank. For example, if T isa 3 by 4 matrix, and J is a vector 
of dimension 6, then MII3J] is of dimension’ 3 4.6,° and M[J3I] is of 
dimension 6 3 4. In particular, if 7 and P and @ are matrices, and if 
R<+T(P;@Q@]1, then R is an array of rank 4 and A[I; a3 K; LJ is equa to 
TCPLI3;71;Q(K3;L1]. 


The form MLI;] indicates that all columns are selected, and the 
form M[;:J] indicates that all rows are selected. For example, M[2;] is 
5 67 8 and M[;2 1] is the matrix with rows 2 1 and 6 5 and 10 9.. 


The following example illustrates the use of a matrix indexing a 
matrix to obtain a three-dimensional array: 


Me2 493 14224441 


M ME3M]... © 
314 2 43214 - 
444 4 3 2 2 3 
rea ae a 
11411 


An indexed oe may appear to the left of a specification 
arrow if (1) the expression is executable in the environment and (2) 
denoting the values of the expression on the left and right by L and FR, 
then 1=x/oR or (1#pZL)/pL must equal (1#pR)/pR. For example: 


X*2 3-5 7 11 
XL1 31+6 8 
x 

6 3 8 7 i141 


SELECTOR GENERATORS 


All of the functions in this- group have integer results which, 
although they are commonly useful as the selector argument in selection 
functions, are often used in other ways as well. For example, the grade 
function 4 is commonly used.to produce indices needed to reorder a 
vector into ascending order (as in X[AX]), but may also be used in the 
treatment of permutations as the inverse function, that is, 4P yields . 
the permutation inverse to P, Similarly, 1N generates a vector of 
successive indices, but .1x1W¥ generates a grid of. values with an 
interval of .1. 


Index Generator and Index of 
The index generator 1 applies to a non-negative scalar integer N 
to produce a vector of length W¥ containing the first W integers in 
order, beginning with the value of the index origin OUZ0. For example, 
-a5 yields.1 2 3.4 5 (in 1-origin) or 0 1.2.3 4 (in O- origin), and 10 
yields an empty vector. A one-element vector argument is treated as a 
scalar. 


If V is a vector and S is a scalar, then ViS yields the index (in 
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the origin in. force) .of the earliest. occurence of gs in Vy, that is, the 
index of 3 in /. If s differs from all items of vy, then 11S NaoUee* ee 
first index outside the range of vy, that is, [IO+ovV. 


If ¢ is any array, then yiS yields an array of the shape of.s, 
each item being determined as the index in y of the corresponding item 
of s. For example: : 


A+tABCDEFGHISKLMNOPQRSTUVWXYZ 


J+A.'HEAD CHIEF! M+2 50'HEAD CHIEF' 
J bi Ae M 
851442738956 HEAD 
ALJ] CHIEF 
HEAD CHIEF AWM 
ALOT] 8 5 1 4 27 
FEIHC DAEH | — fe ge tient GBs iON <5 26 
Ai'VAR3' acs 
22 118 28 


Membership 


The function XeY wictas® a boolean array. ‘of the same shape as X. 
Any particular element. of XeY has the value 1 if the corresponding 
element of Xx belongs to vy that is, if it ‘occurs as some element of y. 
For example, (17)e«3 5 is equal to 0 0 101 0 0 and 'ABCDEFGH'e'COFFEE' 
equals 0010414100. The zige argument y may be of any rank. 


The selector argument of. compression is commonly provided by. 
application of the membership . function, alone or in combination with the 
scalar boolean and relational functions. . 


Grade Functions 


The grade up function 4v grades the items of vector vy in ascending 
order, that is, it yields a result of the same dimension as Vy whose 
first item is the index (in the origin in force) of the smallest item of 
V, whose second item is the index of the next smallest item, and so on. 
Consequently, the expression V[AV] yields the elements of VY in ascending 
order. For example, if V+8 3 7 5, then Avy is 2 4 3 1 and V[AV] is 
35 7 8. ; : 


If the items of V are not all distinct, the ranking among any set 
of equal elements is determined by their position. For example, 
Au 3134 2 yields 362415. 


The grade down function yy grades the items of vy in descending 
order; among equal elements the ranking is determined by position just 
as for grade up. Consequently, yy equals the reversal of AV only if the 
items of V are distinct. For example: 


A+7 25 11 3 B+4-3 43 4 2 
Coe oe WA ite, EL. a AB. 
275. 3 det Dee A phe ee A ee A 
oes chine af 


4 13 5 2 1524 6 3 


‘The grade functions apply only to vectors. 


Deal 


The function MPN produces. a vector ‘of dength. M obtained by making 
M (pseudo-) random selections, without. replacement, from the population 
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iN. Both arguments are Limited to. ‘scalars or one-element vectors.’ Each 


_se@lection is made ‘by appropriate application OF ‘the. echems. described. ‘for. 
the function roll. 


The expression w?y-yields a random’ permutation’ ‘of the ‘items of iW. 
The expression P[M?pP] selects m distinct elements ‘from the population 
defined by the items of a vector Pp. For example: 


P<'ABCDEFGH' 2 ae 
PL3?pP] PL(pP)?2pP] 
GBD _ CEADHFGB 


NUMERICAL FUNCTIONS 


The numerical nine functions apoly only to fumerteay arguments 
and produce numerical results. 


Matrix Inverse and Matrix Divide 

The domino (fH) represents two functions which are useful in a 
variety of problems including the solution of systems of linear 
equations, determining the projection of a vector on ‘the subspace 
spanned by the columns of a matrix, and determining the coefficients of 
a polynomial which best fits a See of points | in the Pees squares sense. 


When applied to a Aonegdagutar matrix A the expression HA (lente 
inverse) yields the inverse of A, and the expression X«BHA (matrix 
divide) yields a value of x which satisfies the relation A/,B=A+.xX and 
is therefore the solution of the system of linear equations 
conventionally represented as Ax=b: 


A«(14)°.214 


A _ GA A+.xBA — 
1000 te. 0: 0", 0 LOO 07 
110 0 Paks ede. oD) 610. "0-0 
a2ia200 Oe t “1 20 0010 
tiad ee ale mas 20:40. 0.10 
B+1 3 6 10 
X«BBA : 
B ree — At Xd. (HA) +. xB 
te O60 se ae ea ee ec 4 1234 
C+4u 201 23569 10 14 
_. ¥+CHA ; Eat eet - 
ease ie Meee eh ia. A+. xY¥ (BA)+.xC 
a a oa Oe Fe Be te ee : 
a ae a3 30 5. + od 
6 9 3.4 6 9 3 4 
10 14 OS 10 14 45 


The final example above shows nae if the left argdasnt is a matrix C, 
then cid urate a solution of ‘the system of equations for each column of 
Ce 


If A is non-singular and if F is an identity matrix of one same 
dimension, then the matrix inverse 4 is equivalent to the matrix divide 
IMA. More generally, for any matrix P, thé expression HP is equivalent 
to the expression ((1R)°.=18)HP, where R is the number of rows in P. | 


_ The domino functions apply more generally to singular and 


non-square matrices, and to véctors ‘and ‘scalars; any argument of rank 
greater than 2 is rejected (RANK ERROR). For matrix arguments A and B 
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the expression x¥+BHA is executed only if 
1. A and 8 have the same number of rows, and 
2. the columns of A are linearly independent. 


If the expression X<«BHA is executable, then pX¥ is equal to (149A).,140B 
and X is determined so as to minimize the value of the expression 
+/,(B-A+.xX)*2. 


The domino functions apply to vector and scalar arguments as 
follows: except that the shape of the result is determined as specified 
above, a vector is treated as a one-column matrix and a scalar is 
treated as a one-by-one matrix. The rationale for this interpretation 
of a vector as a one-column (rather than one-row) matrix is that the 
right argument is treated geometrically (as will be seen in a subsequent 
example) as defining a space spanned by its column vectors, and the left 
argument was seen (in an earlier example) to be treated so as to yield a 
solution for each of its column vectors. Indeed, a one-rowed matrix 
right argument (unless 1-by-1) would be rejected under condition 2 
above. 


In the case of scalar arguments X¥ and Y, the expression HY is 
equivalent to +Y and, except that it yields a domain error for the case 
oH0, the expression XHY is equivalent to 7+Y. 


The use of & for a singular right argument can be illustrated as 
follows: if X is a vector and Y+F X¥, then the expression YHX¥o.*0,1) 
yields the coefficients of the polynomial of degree D which best fits 
(in the least squares sense) the function F at the points YX. 


The definition of BHA has certain useful geometric 
interpretations. If B is a vector and A is a matrix, then saying that 
+/(B-A+.xBHA)*2 is a minimum is equivalent to saying that the length of 
the vector B-A+.xBHA is a minimum. But A+.xBHA is a point in the space 
spanned by the column vectors of A and is therefore the point in this 
space which is closest to B. In other words, P+A+.xBHA is the 
projection of B on the space spanned by the columns of A. Moreover, the 
vector B-P must be normal to every vector in the space; in particular, 
(B-P)+.xA is a zero vector. 


If A and B are single-column matrices, then BHA is a 1 by 1 matrix 
and A+.xBHA is equivalent to AxS, where S$ is the scalar ''pBHA. If A 
and B are vectors, then BHA is a scalar and the projection of B on A is 
therefore given by the simpler expression AxBHA. For example: 


Ac4,5 1.7 
B<2 5 
P+«+AxBHA 
P 
3.403197926 1.28565255 
N+B-P 
N 
“4.403197926 3.71434745 
V+ .xA 
2.4424U90654F 15 


Similar analysis shows that if A is a vector then HA is a vector 


in the direction of A; that is, HA is equal to SxA for some scalar S. 
Moreover, A+.xHA is equal to 1. In other words, 8A is the "image" of 
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the vector 4 obtained by inversion in the unit circle (or sphere). 


Decode and Encode 


For vectors f& 
yields the value of 
radices R[1],R([21]... 
a vector of elapsed 
the value 3723, and 
Similarly, 10 10 10 


and X, the decode (or base-value). function Rix 

the vector X evaluated in a number system with 

.,RLpR]. For example, if R«24 60 60, and X«1 2 3 is 
time in hours, minutes, and seconds, then Fix has 

is the corresponding elapsed time in seconds. 

10 1177 6 is equal to 1776, and 22241101 is 


equal to 5. Formally, RiX is equal to +/WxX, where W is the weighting 
vector determined as follows: WlpW1] is equal to 1 and WLI-1j] is equal . 
to R[I]xW[I]. For example, if RF is 24 60 60, then W is 3600 60 1, 


Scalar (or one-element vector) arguments are extended to conform, 
as required. For example, 10 117 7 6 yields 1776. The arguments are 
not restricted to integers; for example, if X is a scalar then X1C is 
the value of the polynomial with coefficients C, arranged in descending 
order on the powers of X. 


The decode function is extended to arrays in the manner of the 
inner product: each of the radix vectors along the last axis of the 
first argument is applied to each of the vectors along the first axis of 
the second argument. There is one difference; if either of these 
distinguished axes is of length 1, it will be extended (by replication 
of the element) as necessary to match the length of the other argument. 
Except for this different treatment of unit axes, the shape of the 
result of Ais is determined like the shape of the inner product, namely 
((14p4),14p8. 


The encode (or representation) function RTX is, for certain 
ence representacion ; 
arguments, inverse to the decode function. For example: 


R<«i0 10 10 10 


Fit 7 7 6 
1776 

RT¥1776 
177 6 


More generally, Ri(RTX) equals (x/R)|X rather than xX. For example: 


10 10 10 107123 10 10 10T123 
012 3 2 
10 107123 10T123 


2 3 3 

More precisely the definition of the encode function is based on 
the definition of the residue function; for a vector left argument and 
scalar right argument, encode is equivalent to the function F£ whose 


representation is shown at the left below: 


Z<A EB 2 2 2713 

Z+0xA 101 

I<pA “2 ~2 "2713 

L:+(I=0)/0 se: ae Re: 

ZCII+ACIIB 2 0 2713 

+(ACLJ=0)/0 061 

B+(B-Z(IJ)+ACTI 2 2 27°13 

I+I-1 o14 

+L “2 2.2713 
Ode 1 
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The basic definition of R1tX concerns a vector RF and a scalar X, 
and produces a result of the shape of R. It is extended to arrays as 
follows: each radix vector along the first axis of R is applied to 
obtain the representation of each item of x, the resulting 
representations being arrayed along the first axis of the result. For 
example: 


10 10 107215 486 72 219 3 Reid 10 10,[1.5]8 8 8 
240 2 0 R 
18710 10 8 
5 62 9 3 10 8 
10 8 
RFT123 
11 
2 7 
3.3 


The expression for the shape of the result of RTX is the same as 
for the shape of the outer product, namely (pR),oX. 


DATA TRANSFORMATIONS 


Of the two functions in this class, the format is a true type 
transformation, being designed to produce a character array which 
represents the data in its numeric argument. Over a certain class of 
arguments the execute function is inverse to the format and is therefore 
considered as a type transformation as well, although its applicability 
is, in fact, much broader. 


Execute and Format 


Any character vector or scalar can be regarded as a representation 
of an APL statement (which may or may not be well-formed). The monadic 
function denoted by » takes as its argument a character vector or scalar 
and evaluates or executes the APL statement it represents. When applied 
to a character array that might be construed as a system command or the 
opening of function definition, an error will necessarily result when 
evaluation is attempted, because neither of these is a well-formed APL 
statement. 


The execute function may appear anywhere in a statement, but it 
will successfully evaluate only valid (complete) expressions, and its 
result must be at least syntactically acceptable to its context. Thus, 
execute applied to a vector that is empty, contains only spaces, or 
starts with + (branch symbol) or qa (comment symbol) produces no explicit 
result and therefore can be used only on the extreme left. For example: 


g@ft 
Z+a'! 

VALUE ERROR 
Z+a'! 
A 


The domain of » is any character array of rank less than two, and 
RANK and DOMAIN errors are reported in the usual way: 


C<#'3 4 
+/2c 23 4 
7 DOMAIN ERROR 
21 30C¢ 23 4 
RANK ERROR A 
213 pC 
A 
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An error can also occur in the attempted execution of the APL 
expression represented by.the argument of.a2; such an indirect error is 
reported by the error type prefaced by the symbol « and followed by the 
character string and the caret marking the point of difficulty. For 
example: 


2'4s0! 
2 DOMAIN ERROR 
440 
A. 
2')WSID' 
2 VALUE ERROR 
)WSID 
A 


’ 


The symbol y+ denotes two format functions which convert numerical 
arrays to character arrays. There are several significant uses of these 
functions in addition to the obvious one for composing tabular output. 
For example, the use of format is complementary to the use of execute in 
treating bulk input and output, and in the management of combined 
alphabetic and numeric data. 


The monadic format function produces a character array which will 
display identically to the display normally produced by its argument, 
but makes this character array explicitly available. For example: 


M+2=?4 4o2 
R+tM 
M R RO3:2x14] 
oitod1 0101 01014 
0011 -oo0o11 0044 
10a 1 1011 4041 
o0oit 0011 0011 
eM oR 
y 4 4 8 
eFr2 5 X34 
3 ‘THE VALUE OF X IS ',4X 
THE VALUE OF X IS 34 
A/,R=4R 
1 
F'ABCD! 
ABCD 


The format function applied to a character array yields the 
array unchanged, as illustrated by the last two examples above. Fora 
numerical array, the shape of the result is the same as the shape of the 
argument except for the required expansion along the last coordinate, 
each number going, in general, to several characters. The format of a 
scalar number is always a vector. 


The printing normally produced by APL systems. may vary slightly 
from system to system, but the result produced by the monadic format 
will have no final column of all spaces, and no initial spaces in the 
case of a vector or scalar argument. 


The dyadic format function accepts only numerical arrays as its 
right argument, and uses variations in the left argument to provide 
progressively more detailed control over the result. Thus, for FrA, the 
argument F may be a single number, a pair of numbers, or a vector of 
length 2x 1+1,pA. 


In general, a pair of numbers is used to control the result: the 
first determines the total width of a number field, and the second sets 
the precision. For decimal form the precision is specified as the 
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number of digits to the right of the decimal point, and for scaled form 
it is specified as the number of digits in the multiplier. The form to 
be used is determined by the sign of the precision indicator, negative 
numbers indicating scaled form. Thus: 


pQ<A Re el<«12 344 
12.34 34.567 12.340 "34.567. 
120 2 248 .000 12.000 
0.265520. 123.45 . | S60 “123.450 
7 oe a ‘ Ld | a on 
S<9 “294 epO+6 OFA 
e0+F -. 42 735 
12.34 “34,57 Os pr dgerr ts 
_ +00 12.00 0 7123 .° 
-26 ~123.45 | - 3°42, 
3 18 wa : 
pU<+S ar . .p0+7 “194 
1.2F01 3.5F01 1701: ~3F01: 
_0.0F00 1.2F01 ae OFO0O: 41F041 
2.6EF 01 ~1.2F02 we / -- “3F701 "1802 
3°18 3 °14— 


If ‘the width indicator of the control. pair is zero, a fiela width... 
is chosen such that at least: one space.will be left between. adjacent 
numbers. If only a single control number is used, it is treated like a 
number pair with a width indicator of zero:. : 


pO+24A4 oll 294 - 
12.34 34.57 1.2F01 ~3.5F01 
_+00. 12,00 0.0F00 1.2F01 
-26° 7123.45 “2,.6E°01 ~1.2F02 
3 16 3 18 
pO+0 244. ae ~ op G+o [294 
12.38) BMS Toe nowt ea “bee 2B01 2 2934 SROt: 
_.00 — 12.00 on 8 0.0F00 1.2F01 
©26 7123.45 “2.6EF 01 ~1.2F02 
3.16 °,. eee: . wa . 3-18 


Each column of an array can be individually composed by: a left. 
argument that a control weeie for each: 


, pl+o_ 2 0. o8d 7 - pfl+8 3.0 244 
12.34 “34.57 2... 12.340 734.57 
_ +00 12.00 000 12.00 
+26 ~123.45 ~,260 123.45 
3°15 3 16 
e+6 2 12 “34 e+8 0 0 “294 
12.34 3.46F01 12 ~3.5F01 
.00 1.20F01 0° 1.2F01 
“26 “1.23F02 0 ~1.2F02 
3 18 3°17 
628330405 0 12 4F,A 
12.34 “34.567 0 12 0 “123.4500 


The format function applied to an array of rank greater than two 
applies to each of the planes. defined by the last two axes. For 
example: 
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“segs 22 2 502 


_ “ Le a 
114 0:04 
441041 
10010 
0.0 0,0 0 


ef rar ety ae 

Tabular displays incorporating row and column headings, or other 
information between columns or rows, are easily configured using the 
format function betcha with catenation. For examples ‘ 


ROWHEADS+4 39 'JANAPRIULOCT! 2 — 
YEARS*71+15 - 


TABLES. O01x 4E5+?4 5p 885 
(' ',CAJROWHEADS),(269 OFYEARS) ,[1]9 OuTABLE 
72 73 74 75 76 
JAN 318.413, ~351.55 3.62 “144.77 ~H.82 
APR ~327.41°°7341.00 ~92.69 3341.05 “28.44 
JUL ~359.93° 216.16" ~299.71 150.77 103.64 
OCT 180.33.".310.86 “154.94 10.62 276.79 


There are obvious restrictions on the left argument of format, 
since the width of a field must’ be large enough to hold the ‘requested 
form, and if the~specified width is inadequate the result will be a’ © 
DOMAIN errot. “However, the width’*need not provide open spaces between °” 
adjacent numbers. For example, boolean arrays can'be tightly packed: 


1 OF2=74 4p2 
1001 Mee : 
0000 gS 
11014 ae as 
0411 


The following formal characteristics of the format function need 
not concern the: general user, but may be of interest in certain 
applications: 


The least width needed for a column of numbers C with precision P is 
We(V/R<0)+(~Pe0 “AHCI P44, [/0,(R#0)+L10@[R+R=0)(1+P20), where R is 
the rounded value of C given by: Re(L SEORION IE) SA0nE 


The expressions (M¥A),N¥B and (M, N)eA, B are equivalent if M and WV 


are full control vectors, that is, if ((pM)=2x"1tpA)A(pNW)=2x itoB. 
If 2=oM, then (M¥A),MtB and MtA,B are equivalent. ~— 
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SECTION 4: ‘SYSTEM FUNCTIONS AND SYSTEM VARIABLES 


Although the primitive functions of APL deal only with abstract 
objects (arrays of numbers and characters), it is often desirable to 
bring the power of the language to bear on the management of the 
concrete resources or the environment of the system in which APL 
operates. This can be done within the language by identifying certain 
variables as elements of the interface between APL and its host system, 
and using these variables for communication between them. . While still 
abstract objects to APL, the values of such system variables may have 
any required concrete significance to the Host Systems ; 


In principle all necessary interaction between APL and its 
environment could be managed by use of a complete set of system 
variables, but there are situations where it is more convenient, or 
otherwise more desirable, to use functions based on the use of system 
variables which may not themselves be made explicitly available. Such 
functions are called, by analogy, system functions. 


System variables and system functions are denoted by distinguished 
names that begin with a quad (f]). The use of such names is reserved for 
the system and cannot be applied to user-defined objects. They cannot 
be copied, grouped, or erased; those that denote system variables can 
appear in function headers, but only to be localized (see Section 6). 
Within APL statements, distinguished names are subject to all the normal 
rules of syntax. 


SYSTEM FUNCTIONS 


Like the primitive abstract functions of APL, the system functions 
-are available throughout the system, and can be used in defined 
functions. They are monadic or dyadic, as appropriate, and have 
explicit results. In most cases they also have implicit results, in 
that their execution causes a change in the environment. The explicit 
result always indicates the status of the environment relevant to the 
possible implicit result. 


Altogether, 13 system functions are provided. Six of these are 
concerned with the management of the shared-variable facility and are 
described in Section 5. The other seven are given in Figure 4.1, and 
are described here. 


CANONICAL REPRESENTATION 


The canonical representation of a defined function as defined in 
Section 6 is obtained as a result of applying the system function [CR to 
the character array representing the name of the function. Applied to 
any argument which does not represent the name of an unlocked defined 
function it yields a matrix of dimension 0 by 0. Possible error reports 
for OCR are RAWK error if the argument is not a vector or a scalar, or 
DOMAIN error if the argument is not a character array. The use of (CR 
is further described in Section 6. , 


FUNCTION ESTABLISHMENT 


The definition of a function can be established or fixed by 
applying the system function [JFxX to its character representation. The 
function OFX produces as an explicit result the array of.characters 
which represents the name of the function being fixed, while Eepiac tig 
any existing definition of a function with the same name. 
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REQUIREMENTS 


FUNCTION| RANK [DOMAIN | 


EFFECT ON ENVIRONMENT 


None. 


EXPLICIT RESULT 


Canonical representation of 
object named by A. The re- 
|sult for anything other than 
an unlocked defined function 
is of size 0 0.. 


12ppAjArray of 
characters. 


2=poM|Matrix of 
characters. 


Fix (establish) definition of 
the function represented by M, 
unless its name is already in 
use for an object other than 
function which is not halted. 


A vector representing the 
name of the function estab- 
lished, or the scalar row 
index of the fault which 
prevented establishment. 


Array of 
characters. 


Expunge (erase) objects named 
by rows of 4, except groups, 
labels, or halted’ functions. 


A boolean vector whose Ith 
element is 1 if the Ith name 
is now free, 


V{A/Ne1 2 3 None. A matrix cf rows (in acci- 
dental order) representing 
names of Gesignated kinds in 
the dynamic environment: 

1, 2, 3 for labels, varia- 
bles, functions. 


As for the monadic form, 
except that only names be- 
ginning with letters in A 

will be included. 


A/Nel 2 3 
Elements of 
A must be 

alphabetic. 


Array of 


A vector giving the usage of 
characters. 


the name in each row of 4: 
0 name is available 

label 

variable 

function 

other 


FwWne 


None, but requires S seconds 
to complete. 


Scalar value of actual 
delay. 


Figure 4.1: System Functions 


An expression of the form OFX M will establish a function if both the 
following conditions are met: 


1. M is a valid representation of a function. Any matrix which 
differs from a canonical matrix only in the addition of 
non~significant spaces (other than rows consisting of spaces 
only) is a valid representation. 


2. The name of the function to be established does not conflict 
with an existing use of the name for a halted function (defined 
in Section 7) or for a label, group, or variable. 


If the expression fails to establish a function then no change occurs in 
the. workspace and the expression returns a scalar index of the row in 
the matrix argument where the fault was found. If the argument of OFX 
is not a matrix a RANK error will be reported, and if it is not a 
character array a DOMAIN error will result. 


EXPUNGE 


_ Certain name conflicts can be avoided by using the expunge 
function OFX to dynamically eliminate an existing use of a name. Thus 


one 


HEX 'PQR' will erase the object PQF uniess it is a label, a group, or a 
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halted function. The function returns an explicit result of 1 if the 
name is now unencumbered, and a- result of 0 if it is not, or if the 
argument does not represent a well-formed.name. .The expunge function 
applies to a matrix of names and then produces a logical vector result. 
O#xX will report a RAWK error if its argument is of higher rank than a 
matrix, or a DOMAIN error if the argument is not a character array. A 
single name may also be presented as a vector or scalar. 


‘NAME LIST 


The dyadic function [wr yields a character matrix, each row of 
which represents the name of an object in the dynamic environment. The 
right argument is an integer scalar or vector which determines the class 
of names produced as follows: 1, 2, and 3 respectively invoke the names 
of labels, variables, and functions. The left argument is a scalar or 
vector of alphabetic characters which restricts the names produced to 
those with an initial letter occurring in the argument. The ordering of 
the rows of the result is fortuitous. 


“The monadic function 9NZ behaves analogously with no restriction 
on initial letters. For example, [WZ 2 produces a matrix of all 
variable names, and either of QWZ 2 3 or [WL 3 2 produces a matrix of 
all variable and function names. 


The uses of OWE include a following: 


In conjunction with O#x, all the objects of a veertain class can | 
be dynamically erased; or a function can be readily defined that 
will clear a workspace of all but a preselected set of objects. 


In conjunction with Ocr, functions can be written to. 
automatically display the definitions of all or certain 
functions in the workspace, or to angie? the interactions among 
functions and variables. 


The dvsate form of own can be used as a convenient guide in the 
choice of names while designing or experimenting with a 
workspace. 


NAME CLASSIFICATION 


The monadic function 0NC accepts a matrix of characters and 
returns a numerical indication of the class of the name represented by 
each row of the argument. A single name may also be presented as a 
vector or scalar. 


“The result of OWL is a suitable argument for ONC, but other 
character arrays may also be used, in which case the possible results 
are integers ranging from 0 to 4. The significance of 1, 2, and 3 are 
as for OVZ; a result of 0 signifies that the corresponding name is 
available for any use; a result of 4 signifies that the argument is not 
available for use as'a name. The latter case may arise because the name 
is in use for denoting a group, or. because the aEgunent isa 
distinguished name or not a valid name at all. =; 


DELAY 


The delay function, denoted by 0DL, evokes a pause in the 
execution of the statement.in which it appears. The argument of. the 
function determines the duration of the pause, in seconds, but the 
accuracy is limited by possible contending demands on the system at the 
moment of release. Moreover, the delay can be aborted by a strong 
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interrupt. | The explicit result of the delay function is a scalar value — 
equal to the actual delay. . If the*argument of Opz is. not a scalar with 
a numerical value, a RANK or DOMAIN error will pe. a a arctan : cae 


Generally speaking, : “the. delay function uses only a negligible . 
amount of computer time (as opposed to connect time). It can therefore 
be used freely in situations where repeated tests may: be required at. --: 
intervals to determine whether an expected event has taken place. This 
is useful in work with shared variables (as in the function OFFER given 
as an example in Section 5), as well as in certain kinds of interactions © 
between users and programs. 


SYSTEM VARTABLES 


System: variables: are instances of shared oariables: which are 
treated in Section 5. The characteristics of shared © variables that are 
most significant here are these: 


1. If a variable is shared between two processors, the value of the 
variable when used by one of them may well be different trom. 
what that processor last specified, and 


2. each processor is free to use or not use a value specified by 
the other, according to its own internal workings. 


System variables are shared between a workspace and the APL 
processor. Sharing takes place automatically each time a workspace is 
activated and, when a system variable is localized in a function, each 
time the function is used. 


The system variables are listed in Figure 4.2, which gives their 
significance and use. Two classes can be discerned: 


1. Comparison tolerance, horizontal tabs, index origin, latent 
expression, random link, printing precision, and printing width. 
In these cases the value specified by the user (or available in 
a clear workspace). is used by the APL processor during the 
execution of operations to which they relate. If this value is 
inappropriate, or if no value has been specified after 
localization, an IMPLICIT ERROR will be evoked at the time of 
execution. 


2. Account information, atomic vector, line counter, time stamp, 
terminal type, user load, and work area. In these cases 
localization or setting by the user are immaterial. The APL. 
processor will always reset the variable before it can be used 
again. 


The APL statement represented. by the tistent expression is ; 
automatically executed whenever. the workspace is. activated. Formally,. 
OLx is used as an argument to the execute function (sfzx), and any error 
message will be appropriate to the use of that: function, 


Common uses - of. the latent expression. include the form Obx«'G' used 
to invoke an arbitrary function G, the form: 


OLX<+'''FOR NEW FEATURES IN THIS WS ENTER: NEW"! 
used to print a message upon activation of the workspace, and the form. 
O1x<'+[nct used to automatically restart’ a suspended’ function. ‘The 


variable [ZX may. also be localized within a. function and respecified 
therein to furnish a different latent expression when the function. is 
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Horizontal tab settings: a vector of integers 
Index origin: used in indexing and in ? 1 4 ¥ & OFX 
Latent expression executed on activation of workspace characters 
Printing precision: affects numeric output and monadic ¥ 116 
Printing width: affects all but bare output and error reports 
Random link: used in ? 
Account information: identification, computer time, connect 
time, keying time (all times in milliseconds and cumulative 
during session) 


Atomic vector 


Line counter: statement numbers of functions in execution or 
halted, most recently activated first 


Time stamp: year, month, day (of month), hour (on 24-hour 
clock), minute,. second, millisecond 


Terminal type: 1 for Selectric, 2 for PTTC/BCD, 3 for 1050, 
4 for 3270 


User Load 


Working area available (in bytes) 


Figure 4.2: System Variables 


suspended. For example: 


Onx<+'Ft 

vy F;O0LX 
C4] OLX«'2O0LC,o0+''WE CONTINUE FROM WHERE WE LEFT OFF'"' 
[2] ‘WE NOW BEGIN LESSON 2° 


[3] DRILLFUNCTION V 
)SAVE ABC 


On the first activation of workspace ABC, the function F. would be 
automatically invoked; if it were later saved with F halted, subsequent 
activation of the workspace would automatically continue execution from 
the point of interruption. 


Since the values of OHT do not control the physical tab settings 
of terminal devices, there is a possibility of disagreement between 
them. This condition is not recognized as an error by APL, and will 
usually result in output that is different from what is expected. 


The atomic vector CAV is a 256-element character vector, 
containing all possible characters. Certain elements of DAV may be 
términal control characters, such as carrier return or linefeed, but. 

other elements of OAV may neither print nor exercise control. The 
indices of any known characters can be determined by an expression such 
as DAV.'ABCABC'. 


Section 4: System Functions and System Variables 51 


SECTION 5: SHARED VARIABLES 


Two otherwise independent concurrently operating processors can 
communicate, and thereby be made to cooperate, if they share one or more 
variables. Such shared variables constitute an interface between the 
processors, through which information may be passed to be used by each 
for its own purposes. In particular, variables may be shared between 
two active APL workspaces, or between an APL workspace and some other 
processor that is part of the overall APL system, to achieve a variety 
of effects including the control and utilization of devices such as 


printers, card readers, magnetic tape units, and magnetic disk storage 
units. 


In use in an APL workspace, a shared variable may be either global 
or local, and is syntactically indistinguishable from ordinary 
variables. It.may appear to the left of an assignment, in which case 
its value is said to be set, or elsewhere in a statement, where its 
value is said to be used. | Either form of reference is an access. 


At any instant a shared variable has only one value, that last 
assigned to it by one of its owners. Characteristically, however, a 
processor using a shared variable will find its value different from 
what it might have set earlier. 


A given processor can simultaneously share variables with any 
number of other processors. However, each sharing is bilateral; that 
is, each shared variable has only. -two owners. This restriction does not 
represent a loss of generality in the systems that can be constructed, 
and commonly useful arrangements are easily designed. For example, a 
shared file can be made directly accessible to a single control 
processor which communicates bilaterally with (or is integral with) the 
file processor itself. In turn, the central processor shares variables 
bilaterally with each of the using processors, controlling their 
individual access to the data, as required. 


It was noted in Section 4 that system variables are instances of 
shared variables in which the sharing is automatic. It was not pointed 
out, however, that access sequence disciplines are also imposed on 
certain of these variables, although one effect of this was noted; 
namely, variables like the time stamp accept any value specified, but 
continue to provide the proper information when used. The discipline 
that accomplishes this effect is an inhibition against two successive 
accesses to the variable unless the sharing processor (the system) has 
set it in the interim. 


When ordinary, "undistinguished", variables are to be shared, 
explicit actions are necessary to effect the sharing and establish a 
desired access discipline. Six system functions are provided for these 
purposes: three for the actual management and three to provide related 
information. These are summarized in Figure 5.1. 


OFFERS 


A single offer 6 share is of the form P Usvo N, where P is. the 
identification of another processor and W is a character vector 
representing a pair of names. The first of this pair is the name of the 
variable to be shared, and the second is a surrogate name which is 
offered to match a name offered by the other processor. The name of the 
variable may be its own surrogate, in which case only the one name need 
be used, rather than two. For example, the three sets of actions shown. 
below all have the same effect, which is to share one variable between 
two processors 1234 and 5678, the variable being known to the former as 
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REQUIREMENTS 


C1) 
| runcozon fa] LENGTH [DOMAIN | EFFECT ON ENVIRONMENT 


P OSVO Wl 22peN|(x/pP)e1, 149N| Pe i+12%31|Tenders offer to processor 
[2] P if first (or only) name 
of a pair is not previously 
offered and not already in 
use as the name of an ob- 
ject other than a variable. 
The offer is general (to 
anyone) if oO=P. 


EXPLICIT RESULT 


Degree of coupling now in 
effect for the name pair. 
Dimension: x/"1+oN. 


22ppN|None. None. Degree of coupling now in 
effect for the name pair. 


Dimension: x/"1+poN. 


Sets ‘access control. New setting of access con- 
trol. 


Dimension: ("1+p¥),4. 


22ppN)None. Existing access control. 


Retracts offer (ends shar- 
ing). 


22opN|None. Degree of coupling before 
this retraction. 


Dimension: x/"1+pN. 


Pe~1+12*31| None. 


l2ppP|129,P 


If O=pP: Vector of identi- 
fications of processors 
making offers to this 
user. 

If 1=x/pP: Matrix of names 

offered by processor P 

but not yet shared. 


NOTES: 1. If a requirement is not met the function is not executed and a corresponding error 
report is printed. 
2. Each row of W (or W itself if 22ppN) must represent a name or pair of names. If a 
pair of names is used for an offer (dyadic OSv0), either the pair, or the first 
name only, can be used for the other functions. 


Figure 5.1: Functions for the Management of Sharing 


ABC, and to the latter as Q. 


User 1234 User 5678 
5678 OSVO 'ABC yt 
1 1234 OSVO 'q y' 
2 
5678 OSVO 'ABC Q! 
1 1234 OSVO 'Q' 
2 
5678 OSVO 'ABCt 
1 1234 OSVO 'Q@ ABC! 
: 2 


The surrogate names have no effect other than to control the 


matching, making it possible for one processor to operate with no direct 
knowledge of, or concern with, the variable name used by the other. The 


Same surrogate can be used in a succession of offers to the same 
processor, in which case they are matched in sequence by appropriate 
counter-offers. The same surrogate may also be used for offers to any 


number of other processors at the same time. However, since a variable 


may be offered to (or shared with) only one other processor at a time, 
each coincident use of a particular surrogate name must be associated 
with a different variable name. 
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The explicit result of the expression P OSVO WN is the degree of 
coupling of the name or name pair in ¥: zero if no offer has been made, 
one if an offer has been made but not matc hed, two if sharing is 
completed. An offer to any processor (other than — the offering processor 
itself) increases the coupling of the name offered if the name has zero 
coupling and is not the name of a label, function, or group. An offer 
never decreases the coupling. 


The monadic function OSVO does not affect the coupling of the name 
represented by its argument, but does report the degree of coupling as 
its explicit result. If the degree of coupling is one or two, a 
repeated offer has no further implicit result and either monadic or 
dyadic OSVO may be used for inquiry. Advantage is taken of this in the 
following example of a defined function for offering a name (to be 
entered on request) to a processor P for a period of 7 seconds: 


Z+P OFFER T31I3@ 
M<'*NAME: * 
+(' ta, =Q<f]) /2+I<0 
L1:+(2=Z<P OSVO Q)/L2 
>(P2I«I+1+0xODL.1)/L1 
'tnOQ DEAL* 
+0 

2:'ACCEPTED' V 


If the arguments of OSVO fail to meet any of the basic 
requirements listed in Figure 5.1, the appropriate error report is 
evoked and the function is not executed. If a user attempts to share 
more variables than the. quota allotted to him by those responsible for 
the general management of the system the error report will be INTERFACE 
QUOTA EXHAUSTED, and if, for any reason, the shared variable facility 
itself is not available the report will be WO SHARFS. An offer toa 
processor will be tendered, whether or not the processor happens to be 
available. 


The value of a shared variable when sharing is first completed is 
determined thus: if both owners had assigned values beforehand, the 
value is that assigned by the first to have offered; if only one owner 
had, that value obtains; if neither had, the variable has no value. 
Names used in sharing are subject to the usual rules of localization. 


A set of offers can be made by using a vector left argument (or a 
scalar or one~element vector which is automatically extended) and a 
matrix right argument, each of whose rows represents a name or name 
pair. The offers are then treated in sequence and the explicit result 
is the vector of the resulting degrees of coupling. If the quota of 
shared variables is exhausted in the course of such a multiple offer, 
none of the offers will be tendered. 


An offer made with zero as left argument is a general offer, that 
is, an offer to any processor. A general offer will be matched only 
with a counter-offer which is not general, that is, one that explicitly 
identifies the processor making the general offer. The processor 
identification associated with a user is the user's sign-on number. 
Auxiliary processors are veUBe Ty identified by numbers between 1 and 
1000. 
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ACCESS CONTROL 


Consider the following simple example of sharing the variable Vv 
between two users 1234 and 5678: 


User 1234 User 5678 
5678 DSvo ty! 
4 1234 Osvo ‘yt 
2 
V<+5 
V<3xV*2 
V 
75 


The relative sequence of events in the two workspaces, after sharing, is 
significant; for example, had the use of Y by 1234 in the foregoing 
example preceded the setting by 5678, the resulting value would have 
been 5 rather than 75. 


In most practical applications it is important to know that a new 
value has been assigned between successive uses of a shared variable, or 
that use has been made of an assigned value before a new one is set. 
Since, as a practical matter, this cannot be left to chance, an access 
control mechanism is embodied in the shared variable facility. 


The access control operates by inhibiting the setting or use of a 
shared variable by one owner or the other, depending upon the access. 
state of the variable, and the value of an access control matrix which 
is set jointly by the two owners, using the dyadic form of the system 
function svc. If, in the example above, one user (say 5678) had 
followed his offer to share y by the expression 1111 Osvc tyt, then 
the desired sequence would have been enforced. That is, the use of V by 
5678 would be automatically delayed until vy is set by 1234, and the use 
by 1234 would be delayed until y is set by 5678. 


The delay occasioned by the inhibition of any access uses only a 
negligible amount of computer time. Interruption by a strong interrupt 
signal during the period of delay aborts the access and unlocks the 
keyboard. 


Figure 5.2 shows the three access states possible for a shared 
variable, the. possible transitions between states, and the potential 
inhibitions imposed by the access control matrix, ACM. The first row of 
ACM is associated with setting of the variable by each owner, and the 
second with its use. The permissible operations for any state are 
indicated by the zeros in ACMAASM, where ASM is the representation of 
the access state shown in the figure. This can be confirmed by using 
Figure 5.2 to validate each of the following statements: 


If ACML1;11=1, then two successive sets by A require an intervening 
access (set or use) by B. 


If ACML1;2]=1, then two successive sets by B require an intervening 
access by A. 


If ACML2;11]=1, then two successive uses by A require an intervening 
set by B. 


If ACML2;2]=1, then two successive uses by B require an intervening 
set by A. 


The value of the access state representation is not directly 


available to a user, but the value of the access control matrix is given 
by the monadic function (svc. For a shared variable vy the result of the 
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00 
11 
ASM 
USED & 
INITIAL 
STATE 


Legend: ; 
SA SB JA UB: Denote set or use by A or B. 
ACM: Access Control Matrix 
ASM: Access State Matrix 


A one in an element of ACM inhibits the 
associated access. Allowable accesses are 
given by the zeroes in ACMAASM. Access control 
vectors as seen by A and B, respectively, are 
,ACM and ,oACM. 


The access state matrix represents the last 
access: ones occur in the last row if it is not 
a set, and in a column if it is, the first 
column if set by A and the last if set by B. 


Figure 5.2: Access Control of a Shared Variable 
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Acce 


ss Control Vector 
as seen by 
, eee a es 


No constraints. 


Half-duplex. Ensures that each use is 
preceded by a set by partner. 


Half-duplex. Ensures that each set is 
preceded by an access by partner. 


Reversing half-duplex. Maximum 
constraint. 


Simplex. Controlled communication from 
BtoA. (For card reader, etc.) 


Figure 5.3: Some Useful Settings for the Access Control Vector 


expression Osvc 'v' executed by user A is the access control vector ,ACM 
(the four-element, ravel of ACM). However, if user 8 executed the same 
expression he would obtain the result .6ACM. The reason for the 
reversal is that sharing is symmetric: neither owner has precedence 
over the other, and each sees a control vector in which the first one of 
each pair of control settings applies to his own accesses. This 
symmetry is evident in Figure 5.2; if it were redrawn to interchange the 
roles of A and B the control matrix would be the row-reversal of the 
matrix shown. 


The setting of the access control matrix for a shared variable is 
determined in a manner which maintains the functional symmetry. An 
expression of the form LZ Osvc 'V' executed by user A assigns the value 
of the logical left argument £Z to a four-element vector which, for the 
purposes of the present discussion, will be called QA. Similar action 
by user B sets @B. The value of the access control matrix is determined 
as follows: : 


ACM<(2 2pQA)VO2 20QB 


Since ones in ACM inhibit the corresponding actions, it is clear from 
this expression that one user can only increase the degree of control 
imposed by the other (although he can, by using OSVC with a left 
argument of zeros, restore the control to that minimum level at any 
time). 


Access control can be imposed only after a variable is offered, 
either before or after the degree of coupling reaches two. The initial 
values of @A and @B when sharing is first offered are zero. 


The access state when a variable is first offered (degree of 
coupling is one) is always the initial state shown in Figure 5.2. If 
the variable is set or used before the offer is accepted, the state 
changes accordingly. Completion of sharing does not change the access 
state. 


Figure 5.3 lists a number of settings of the access control vector 
which are of common practical interest. Any one of them can be 
represented by a simplification of Figure 5.2 obtained by omitting the 
control matrix and deleting the lines representing those accesses which 
are inhibited in the particular case. For example, with maximum 
constraints all the inner paths would be removed from the figure. 
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A group of W access control matrices can be set at once by 
applying the function OSVC to an W by 4 matrix left argument and an 
N-rowed matrix right argument of names. The explicit result is an NV by 
4 matrix giving the current values of the (ravels of) control matrices. 
When control is being set for a single variable the left argument may be 
a single 1 or 0 if all inhibits or none are intended. 


RETRACTION 


Sharing offers can be retracted by the monadic function OSVR 
applied to a name or a matrix of names. The explicit result is the 
degree (or degrees) of coupling prior to the retraction. The implicit 
result is to reduce the degree of coupling to zero. 


Retraction of sharing is automatic if the connection to the 
computer is interrupted or if the user signs off or loads a new 
workspace. Sharing of a variable is also retracted by its erasure or, 
if it is a local variable, upon completion of the function in which it 
appeared, 


The nature of the shared-variable implementation is often such 
that the current value of a variable set by a partner will not be 
represented within a user's workspace until actually required to be 
there. This requirement obtains when the variable is to be used, when 
sharing is terminated, or when a SAVE command is issued (since the 
current value of the variable must be stored). Under any of these 
conditions it is possible for a WS FULL error to be reported. In all 
cases the prior access state remains in effect and the operation can be 
retried after corrective action. ' ; 


INQUIRIES 


There are three monadic inquiry functions which produce 
information concerning the shared variable environment but do not alter 
it; the functions OsVo0and OSVC already discussed, and the function OSVQ. 
A user who applies the latter function to an empty vector obtains a 
vector result containing the identification of each user making any 
sharing offer. to him. A user who applies the function OSVQ to a 
non-empty argument obtains a matrix of the names offered to him by the 
processor identified in the argument. This matrix includes only those 
names which have not been accepted by counter-offers. 


The expression (0z0SV0 M)/[1] M«ONL 2 can be used to produce a 


character matrix whose rows represent the names of all shared variables 
in the dynamic environment. 
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SECTION 6: FUNCTION DEFINITION 


There are three ways in which a defined function can be 
established in an APL workspace: 


1. It can be copied from a stored workspace using a system command, 
as described in Section 8. 


2.. It can be established in execution mode, using the system 
function OFx, either in direct keyboard entry or in the course 
of execution of another defined function. 


3. It can be established in function definition mode. 


Regardless of which facility has been used for establishing a function, 
its definition can be displayed or modified in either the function 
definition mode, in which certain editing capabilities are built-in, or 
by the combined use of the system functions Ocr and OFX. 


CANONICAL REPRESENTATION AND FUNCTION ESTABLISHMENT 
The character representation of a function is a character matrix 
satisfying certain constraints: the first row of the matrix represents 
the function header and must be one of the forms specified below in the 
section on function headers. The remaining rows of the matrix, if any, 
constitute the function body, and may comprise any sequence of 
characters. .If the character representation satisfies additional 
constraints such as no redundant spaces. and left justification of the 
non-blank character in each row, then it is said to be a canonical 


representation. 


Applying Ocr to the character array representing the name of an 
already established function will produce its canonical representation. 
For example, if OVERTIME is an available function: 


DEF<OCR ‘OVERTIME' 
DEF 
PAY+R OVERTIME H;TIME 
TIME<0[H-40 
PAY<Rx1.5xTIME 
oDEF 
3 21 
The function OCR applied: to any argument which does not represent the 
name of an unlocked defined function yields a matrix of shape 0 0. 


Error reports for OCR are RANK error if the argument is not a vector or 
a scalar, or DOMAIN error if the argument is not a character array. 


The use of OCR does not change the status of the function 
OVERTIME, eee remains established and can be used for calculations. 
Thus: 


A 5 8 OVERTIME 35 40 4S 
0 0 60 


_L£: OVERTIME: should be expunged: 


: OEx ‘OVERTIME’ 
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it is no longer available for.use: 


7 5 8 OVERTIME - 4O 45 
SYNTAX ERROR 
7 5 8 OVERTIME 35 40 45 
A 


The function can be re-established by OFX: 


OFX DEF 
- OVERTIME 


The function QFX produces as its explicit result the vector of 
characters which represents the name of the function being fixed, while 
replacing any existing definition of a function with the same name. The 
function OVERTIME can now be used again: 


7 5 8 OVERTIME 35 a8 45 
0 0 60 


As noted in Section 4, an expression of the form OFX mw will 
establish a function if the following conditions are met: 


1. mM is a valid representation of a function. Any matrix which 
differs from a canonical matrix only in the addition of 
non-significant spaces (other than rows. consisting of spaces only)’ 
is a valid EepECAGUEAL NOH: 


2. The name of the function to ‘be established does not conflict with 
an existing use of the name for an executing or paveee function or 
for a label, group, or variable. 


If the expression fails to establish a function then no change occurs in 
the workspace and the expression returns a scalar index of the row in 
the matrix: argument where the fault was found. If the argument of [FX 
is not a matrix a RAWK error will be reported, and if it is nota 
character array a DOMAIN error will result. 


THE FUNCTION HEADER 


The valence of a function is defined as the number of explicit 
arguments which it takes. A defined function may have a valence of 
zero, one, or two, and may yield an explicit result or not. These cases 
are represented by six forms of header as follows: 


Type Valence Result aN Result 
Dyadic 2 ; RA FB AF B 
Monadic ae GAS R<F B: F B 
Niladic ) ee PF 


The names’ used for the arguments of a function become local to the 
function, and additional local names may be designated by listing them — 
after the function name and argument, separated from them and from each 
other by semicolons; the name of the function is global. The 
significance of these distinctions is explained below. : 


Except that the function name itself may be repeated in the list 
of local names, a name may not be usefully repeated in the header. It 
is not obligatory either for the arguments of a defined function to be 
used within the body, or for the Beste variable to be specified in the 
course of function execution. : 
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LOCAL AND GLOBAL NAMES 


In the execution of a defined function it is often necessary to 
work with intermediate results or temporary functions which have no | 
significance either before or after the function is used. The use of 
local names for these purposes, so designated by their appearance in the 
function header, avoids cluttering the workspace with a multitude of 
objects introduced for such transient purposes, and allows greater 
freedom in the choice of names. Names used in the function body, and 
not so designated, are said to be global to that function. 


A local name may be the same as that for a global object, and any 
number of names local to different functions may be the same. During 
the execution of a defined function, a local name will temporarily 
exclude from use a global object of the same name. If the execution of 
a function is interrupted (leaving it either suspended, or pendent (See 
Section 7), the local objects retain their dominant position, during the 
execution of subsequent APL operations, until such time as the halted 
function is completed. However, system commands and the del form of 
function definition (see below) continue to reference global objects 
under these circumstances. 


The localization of names is dynamic, in the sense that it has no 
effect except when the defined function is being executed. Furthermore, 
when a defined function uses another defined function during its 
execution, a name localized in the first (or outer) function continues 
to exclude global objects of the same name from the purview of the 
second (or inner) function. This means that a name localized in an 
outer function has the significance assigned to it in that function when 
used without further localization in an inner function. The same name 
localized in a sequence of nested functions has the significance 
assigned to it at the innermost level of execution. 


The shadowing of a name by localization. is complete, in the sense 
that once a name has been localized its global and outer values are 
nullified, even if no significance is assigned to it during execution of 
the function in which it is localized. 


BRANCHING AND STATEMENT NUMBERS 


Statements in a function are normally executed successively, from 
top to bottom, and execution terminates at the end of the last statement 
in the sequence. This normal order can be modified by branches. 
Branches are used in the construction of iterative procedures, in 
choosing one out of a number of possible continuations, or in other 
situations where decisions are made during the course of function 
execution. 


To facilitate branching, the successive statements in a function 
definition have reference numbers associated with them, starting with 
the number one for the first statement in the function body and 
continuing with successive integers, as required. Thus, the expression 
~4 denotes a branch to the fourth statement in the function body, and 
when executed causes statement 4 to be executed next, regardless of 
where the branch statement itself occurs. (In particular +4 may be 
statement 4, in which case the system will simply execute this "tight 
loop" indefinitely, until interrupted by an action from the keyboard. 
This is a trap to be avoided.) 


A branch statement always starts with the branch arrow (or right 
arrow) on the left, and this can be followed by any expression. For the 
statement to be effective, however, the expression must evaluate to an 
integer, to a vector whose first element is an integer, or to an empty 
vector; any other value results in a DOMAIN or RANK error. If the 
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expression evaluates to a valid result, then the following rules apply: 


1. If the result is an empty vector the branch is vacuous and 
execution continues with the next statement in the function if 
there is one, or else the function terminates. 


‘2. %If the result is the number of a statement in the function then 
that statement is the next to be executed. 


3. If the result is a number out of the range of statement numbers 
in the function, then the function terminates. The number 0 and 
all negative integers are outside of the range of statement 
numbers for any function. 


Since zero is often a convenient result to compute, and it is not. 
the number of a statement in the body of any function, it is often used 
as a standard value for a branch intended to end the execution of a 
function. It should be noted that in the function definition mode 
described below, zero is used to refer to the header. This has no 
bearing on its use as a target for a branch. 


An example of the use of a branch statement is shown in the 
following function, which computes the greatest common divisor of two 
scalars: : 


Z+M GCD N. 
Z<M 
M<+M\N 

N+Z 
>(0#M)/1 


The compression function in the form U/V gives V if UV is equal to 
one, and an empty vector if YU is equal to zero. Thus, the fourth 
statement in GcD is a branch statement which causes a branch to the 
first statement. when the condition oz¥ is true, and a branch with an 
empty vector argument, that is, normal sequence, when the condition is 
false. In this case, there is no next statement and so execution of the 
function ends. 


LABELS - 


If a statement occurring in the body of a. function definition is 
prefaced by a name and a colon, then the name is assigned a value equal 
to the statement number. A name used in this way is called a label. 
Labels are used to advantage when it is expected that a function 
definition may be changed for one reason or another, since a label 
automatically assumes the new value of the statement number of its 
associated statement as other statements are inserted or deleted. 


The name of a label is local to the function in which it appears, 
and must be distinct from other label names and from the local names in 
the header. . 

A label name may not appear immediately to the left of a 
specification arrow. In effect it acts like a (local) constant. _ 
COMMENTS . 

The lamp symbol »a (the cap-null) signifies that what follows it is 


a comment, for illumination only and not to be executed; it may occur 
only as the first character in a statement. 
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FUNCTION EDITING - THE vy FORM 


The functions 0¢R and (Fx together form a basis for establishing 
and revising functions. Convenient definition editing with them, 
however, requires the use of prepared editing functions which must be 
defined, stored in a library, and explicitly activated when needed. The 
del form described here provides an alternative facility for function 
entry and revision which is always present for use. 


When the user enters the del character (vy) followed by the name of 
a defined function, the system responds by displaying [W+1] , where W is 
the number of statements in the function. It is now possible to: 


add, insert, or replace statements 
replace the header 

modify the header or a statement 
delete a statement 

display all or part of the definition 


A new function is started by entering the desired header on the 
same line as the opening Vv. Once the function definition mode has thus 
been entered, the treatment of a new function is identical to that for a 
function already defined. 


ADDING A STATEMENT 


If the response to the display of statement number [N+1] is a 
statement, it is accepted as a line added at the end of the definition. 
The system response is the display [W+2] . Additional statements may 
continue to be added to the definition in this manner. If an empty 
statement is entered, the system will re-display the line number in 
brackets. 


INSERTING OR REPLACING A STATEMENT 


If the response to the statement number displayed by the system is 
[VW] , where W is any positive number with or without a fractional part, 
the system will display [WV] . A statement entered will replace an 
existing statement JN. 


The system continues by displaying the next appropriate number. 
For example, if the statement number entered was [3] , the next number 
displayed will be [4] ; if [3.02] , then [3.03] ; if [3.29] then [3.3] , 
and so forth. 


A statement may be submitted with line number [NW]; it will be 
inserted or will replace an existing statement in the manner described. 
The response of the system in this case is to display the next statement 
number. 


REPLACING THE HEADER 


If the user enters [0] , the system responds by displaying [0] . 
The user may now enter any legal header, which will replace the existing 
header. Following this, the system displays [1] . The entire operation 
may be carried out by entering [0] and, on the same line, the header. 


DELETING A STATEMENT 
A statement may be deleted by entering in brackets a delta 
followed by the statement number, for example, [42]. The response of the 


system is to display the next following statement number. [In the 
example, the response will be [3]. 
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EDITING A STATEMENT OR HEADER 
Statement W.can be modified by the following mechanism: 


1. Enter [WOM] where M.is an integer. The header is referred to 
by using-o for MN. 

2. Statement W or the header is automatically displayed and the 
cursor stops under position M, which is counted from the left 
margin. 

3. A letter or decimal digit or the symbol / may be typed under 
any of the positions in the display. Any other characters 
typed in this mode are ignored. The ordinary rules for 
editing before entry (such as backspace and linefeed) apply. 

4, The line is re-displayed. Each character understruck by a / 
is deleted, each character understruck by a digit K is 
preceded by K added spaces, and each character understruck by 
a letter is preceded by 5xR spaces, where fF is the position of 
the letter in the alphabet. For example, the letter C will 
produce 15 spaces. Finally, the cursor moves to the first 
injected space and awaits the typing of modifications in the 
usual manner. The final effect is as if the entry had been 
made entirely from the keyboard; in particular, a completely 
blank sequence leaves the line unchanged. 


If a statement number itself is changed from W to P during the 
editing procedure the statement affected is determined by the new 
statement number P; hence statement W remains unchanged. This permits 
statements to be moved, with or without modification. 


If an attempt to display a line would exceed the printing width 
(determined by OPW) this form of editing is not applicable. Such a 
condition may arise if the line is too long to start with, or if too 
many spaces have been requested for insertion. 


ADDING TO A STATEMENT OR HEADER 


One or more characters can be added to the end of statement WN, or 
Statement NW can be corrected, by entering [NWf]}0]. In response, the 
system displays statement W; the cursor is positioned at the end of the 
statement, and the keyboard unlocks. The statement may be extended, or 
modified by using the normal revision procedures for entry. In 
response, the system displays the next statement number and awaits 
entry. 


The header may be modified in this way by entering [oflol. 


FUNCTION DISPLAY 


The canonical representation of a function includes the header and 
body displayed as a character matrix. The V form permits display of a 
canonical representation modified as follows: 


1. Labelled lines and comments are offset one space to the left. 

2. Statement numbers in brackets are appended to the left of the. 
statements. 

3. A del character (V) is prefixed to the header, separated by 
one space. 

4, A final line is added, consisting of spaces and a del 
character, aligned with the del character which prefixes the 
header. 
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Shown are the canonical representation and function display of a 
function for computing the determinant of a matrix: 


UCR'DET' ~ VDETLOW 
Z+DET A3B3P3I Ha V Z+DET A3B3P;3I 
I<«QI0 [1] I<OI0 
Z+1 [2] Zeta 
L:P«((ACsTI]) if / (ACs Tr] C3] o:P+({AC3sZ1])if/|ACsTI 
+(P=I)/LL [C4]  +(€P2I)/LL 
ALI,P;1+ACP.I;] [5] ACI.P;1+ALP,I;] 
Ze-Z C6] Z+-Z 
LL:2«2xB+ALI;I] C7] 2£L:2+2ZxB<ACI3I] 
>+(0 1 vV.=Z,1+p4)/0 C8] +(0 1 V.=Z,1+94)/0 
A«i 1 4A-(ADL3I14B)°.xACI3] C9] Ae1 1 4A-(CAL3I]4+B)°.xALI3] 
+L C10] 72 
aEVALUATES A DETERMINANT (11] aBVALUATES A DETERMINANT 

Vv 


While in function definition mode, display of the entire 
definition can be called for by responding with [0]. the statements 
will be listed in numeric order, taking into account deletions and 
insertions. Following the last statement, the next appropriate line 
number will be displayed. The definition from statement W onward can be 
similarly displayed by entering [OW]. 


Statement N alone can be displayed by entering [N01]; in this case 
the statement number WV is aad by the system after the display of 
the statement itself. 


LEAVING THE V FORM 


The del form may be left by typing a V on a line by itself, or 
as the last character on any entry except one which enters a comment 
statement. 


In particular, it can follow a request for display or a function: 
statement, and either can be incorporated in the same entry that both 
opens and closes the definition mode, as in VDETCOIV or VDET(10]+L,LV. 
On leaving the del form, the statements are reordered according to 
their statement numbers and the statement numbers are replaced by the 
integers 1, 2, 3, and so on. 


A function definition can be locked by either opening or closing 


the definition mode with a del-tilde, ¥. The use of this is explained 
in Section 7. 
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SECTION 7: FUNCTION EXECUTION 


A defined function may be used like a primitive function, except 
that it may not be the argument of a primitive operator. In particular, 
a defined function may be used within its own definition or that of | 
another defined function. When a function is called, or put into use, 
its execution begins with the first statement, and continues with 
successive statements except as this sequence is altered by branch . 
instructions. 


Consider the function OVERTIME: 


PAY<R OVERTIME H;TIME 
TIME+O[40-Z 
PAY<« Rx1.5xZIME 


If this function is invoked by a statement such aS’ X¥ OVERTIME yY the 
effect is to assign to the local name. Ff the value of X¥ and.to az the 
value of Y, and then execute the body of the. function OVERTIME. Except 
for having a value assigned initially, the argument variable is treated 
as any other local variable and, in particular, may be respecified 
within the function. ea 


A function like OVERTIME, which produces an explicit result, may 
properly be used in compound expressions. In the OVERTIME function the 
last value received by PAY in the course of execution is the explicit 
result of the function. For example: 


YTDATL 
100 200 150 
YTDAT+YITDAT+OT+S5 7 6 OVERTIME 35 40 45 


oT 

) 0 45 
YTDAT 

100 200 . 195 


PAY, itself, is a local variable and therefore has no significance after 
the function is executed: : 
PAY 
VALUE ERROR 
PAY 
A 


HALTED EXECUTION 


The execution of a function F may be stopped before completion in 

. Ringaen of ways: by an error report, by an attention signal, or by the 

top control treated below. When this happens the function is said to 
be suspended, and its progress can be resumed by entering a branch 
statement from the keyboard. Whatever the reason for suspension, the 
name of the function is displayed, with a statement number beside it. 
In the case of an error stop or ah interrupt the statement itself is 
also displayed, with an appropriate message and an indication of the 
point of interruption. Unless a specification appears in the statement 
to the right of this point, the state of the computation has been 
restored to the condition obtaining before the statement started to 
execute. 


In general, therefore, the displayed number is that of the 
statement that should be executed next if the function is to continue 
normally. Resumption of execution at that point can be accomplished by 
entering a branch to that number specifically, a branch to an empty 
vector, or a branch to ZC. Entering +0, or a branch to another number 
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outside the range of statement numbers, causes an immediate exit from 
the function and it is no longer suspended. 


In the suspended state all normal activities are possible, but 
names used refer to their local significance, if any. The system is in 
a condition to execute statements or system commands, resume execution 
of the function at an arbitrary point, or enter definition mode to-work 
on the suspended function, or some other. In some systems, functions 
which are pendent (see below) cannot be edited. | 


STATE INDICATOR 


Entering the system command )SI causes a display of the state 
indicator; a typical display has the following form: 


-ysr 


AL7] * 
FC2] 
G03] 


This display indicates that execution was halted before completing 
(perhaps before starting) execution of statement 7 of function #, that 
the current use of function H was invoked in statement 2 of function F, 
and that the use of function F was in turn invoked in statement 3 of G. 
The * appearing to the right of H[7]. indicates that the function dq is 
suspended. The functions G and F are said to be pendent, because their 
execution cannot be restarted directly, but only as a consequence of 
function H resuming its course of execution. The term halted is used 
to describe a function which is either pendent or suspended. 


Further functions can be invoked when in the suspended state. 
Thus, if G.were now invoked and a further suspension occurred in 
statement 5 of @, itself invoked in statement 8 of G, a subsequent 
display of the state indicator would appear as. follows: 


SI 
Qats] * 
GCs] 
#C7] * 
GL2] 
F(3] 


Since the line counter, OZC, holds the current statement numbers 
of functions that are in process of execution, its value at this point 
would be the vector 5 8 7 2 3. The sequence from the last to the | 
preceding suspension can be cleared by entering a right arrow (+). This 
behavior is illustrated by continuing the foregoing example as follows! 


> 


)SI 
AC7] * 
GL2) 
FL3] 

OLC 
7 2 3 


Repeated use of + will clear the state indicator completely, and restore 
[Lc to an empty vector. The cleared state indicator displays as a blank 
line. 
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STATE INDICATOR DAMAGE 


If the name of a function occurs in the state indicator list, then 
erasure of the function or replacement of the function by copying a 
function with the same name (even another instance of the same function) 
will make it impossible for the original course of execution to be 
resumed. In such an event an SI DAMAGE report is given. In addition, 
some APL systems will give an SI DAMAGE report if a halted: function is 
edited to change the order of its labels or to modify its header. : 


If an SI DAMAGE report is given for a suspended function, it will 
not be possible to resume its execution by entering a branch statement, 
but the function can be invoked anew, with or without prior clearance » 
of the state indicator. 


In case of SI DAMAGE, display of the state indicator will show the 
damage by giving ~1 as the line number of the affected function. 


TRACE CONTROL 


A trace is an automatic display of information generated by the 
execution of a function as it progresses. Ina complete trace of a 
function, the number of each statement executed is displayed in 
brackets, preceded by the function name and followed by the final value 
produced by the statement. The trace of a branch statement shows a 
branch arrow followed by the number of the next statement to be 
executed. The trace is useful in analyzing the behavior of a defined 
function, particularly during its design. 


The tracing of a function PROFIT is controlled by the trace 
control for PROFIT, denoted by TAPROFIT. If one sets TAPROFIT+2 3 5 
then statements 2, 3, and 5 will be traced in any subsequent execution 
of PROFIT. MTAPROFIT+10. discontinues tracing ‘of PROFIT. A complete 
trace of PROFIT is obtained by TAPROFIT+.\N, where NW is the number of 
statements in PROFIT. In general, the trace control for any function is 
designated by prefixing TA to the function name. 


STOP CONTROL 


A function can be caused to execute up to a certain statement and 
then stop in the suspended state. This is frequently useful in 
analyzing a function, for example by experimenting with local variables 
or intermediate results. The stops are set by the stop control in the 
same manner as the trace. For a function PROFIT, stops before lines 4 
and. 12 are executed would be set by entering SAPROFIT+4 12. 


“At each stop, the function name and line number are displayed as 
described above for suspended functions. To go to the next stopping 
point after the first, execution must be explicitly restarted by 
entering an appropriate branch statement. 


Trace control and stop control can be used in conjunction. 
Moreover, either of the controls may be set within functions. In 
particular, they may be set by expressions which initiate tracing or 
stops as a result of certain conditions that may develop in the course 
of function execution, such as a particular variable taking ona 
particular value. They may pat be used as the left argument of 
specification. They may not used by themselves or as the argument to 
a function. 
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LOCKED FUNCTIONS 


If the symbol ¥ (called del-tilde) is used instead of vy to open or 
close a function definition, the function becomes locked. A locked 
function cannot be revised or displayed in any way. Any associated stop 
control or trace control is nullified after the function is locked. 


A locked function is treated essentially as a primitive, and its 
inner workings are concealed as much as possible. Execution of a locked 
function is terminated by any error ocurring within it, or by a strong 
interrupt. If execution stops the function is never suspended but is 
immediately abandoned. The message displayed for a stop is DOMAIN error 
if an error of any kind occured, WS FULL and the like if the stop 
resulted from a system limitation, or INTERRUPT. 


Moreover, a locked function is never pendent, and if an error 
occurs in any function invoked either directly or indirectly by a locked 
function, the execution of the entire sequence of nested functions is 
abandoned. If the outermost locked function was invoked by an unlocked 
function, that function will be suspended; if it was invoked by a 
keyboard entry the error message will be displayed with a copy of that 
statement. 


Similarly, when a weak interrupt is encountered in a locked 
function, or in any function that was ultimately invoked by a locked 
function, execution continues normally up to the first interruptable 
point: either the next statement in an unlocked function that invoked 
“the outermost locked function, or the completion of the keyboard entry 
that used this locked function. In the latter case, the weak interrupt 
has no net effect. 


Locked functions may be used to keep a function definition 
proprietary, or as part of a security scheme for protecting other 
proprietary information. They are also used to force the kind of 
behavior just described, which sometimes simplifies the use of 
applications. 


RECURSIVE FUNCTIONS 


A defined function whose name has not been made local and is used 
in the body of the function definition is said to be defined 
recursively. For example, one definition of the greatest common divisor 
function states that the greatest common divisor of zero and any number 
N is NW; for any other pair of numbers it is the greatest common divisor 
of the residue of the second number by the first, and the first number. 
The words "greatest common divisor" are used in the definition. This 
suggests that a greatest common divisor function GCDR can be written 
whose canonical representation is: 


OCR'GCDR' 
R+A GCDR B 
R<B 
>(0=4)/0 
R<(A|B) GCDR A 


18 GCDR 45 
9 


This can be compared to the equivalent function defined iteratively in 
Section 6. 


Executing an erroneously defined recursive function will often 
result in a WS FULL report. The. non-trivial execution of a properly 
defined recursive function may also have this effect because of the very 
deep nesting of function calls that is often required. 
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TERMINAL INPUT AND OUTPUT 


In many significant applications, such as text processing, for 
example, it is necessary that the user supply information as the 
execution of the application programs progresses. It is also often 
convenient, even in the use of an isolated function, to supply 
information in response to a request, rather then as arguments to the 
function as part of the original entry. This is illustrated by 
considering the use of the function CI, which determines the growth of a 
unit amount invested at periodic interest rate # for number of periods 
Ts 


Ocr'cr' 
A+R CI 7 
A<«(1+R) «2 


For example, the value of 1000 dollars at 5 per cent for 7 years, 
compounded quarterly, might be found by: 


1000 x (.05+4) CI 7x4 
1415.992304 


The casual user of such a function might, however, find it difficult to 
remember which argument of cr is which, how to adjust the rate and 
period stated in years for the frequency of compounding, and whether the 
interest rate is to be entered as the actual rate (for example, .05) or 
aS a percentage (for example, 5). An exchange of the following form 
might be more suitable: 


INVEST 
ENTER CAPITAL AMOUNT IN DOLLARS 
Ol: 
1000 
ENTER NUMBER OF TIMES COMPOUNDED IN ONE YEAR 
QO: 
4 
ENTER ANNUAL INTEREST RATE IN PERCENT 
O: 
5 
ENTER PERIOD IN YEARS 
O: 
7 


VALUE ITS 1415.992304 


It is necessary that each of the entries (1000, 4, 5, and 7) 
occurring in such an exchange be accepted not as an ordinary entry 
(which would only evoke the response 1000, etc.), but as data to be used 
within the function INVEST. Facilities for this are provided in two 
ways, termed evaluated input, and character input. A definition of the 
function INVEST, which uses evaluated input, is as follows: 


OCR'INVEST' 
INVEST;C3;R373F 
"ENTER CAPITAL AMOUNT IN DOLLARS' 
c+O ; 
"ENTER NUMBER OF TIMES COMPOUNDED IN ONE YEAR*t 
F< 
"ENTER ANNUAL INTEREST RATE IN PER CENT! 
R<OtPx100 
‘ENTER PERIOD IN YEARS' 
T+FxO 
‘VALUE IS ',3CxR CI T 


The function WEWSTOCK in the Introduction (Section 1) is an example of 
the use of both character input and bare output (discussed below). 
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EVALUATED INPUT 

The quad symbol Q appearing anywhere other than immediately to the 
left of a specification arrow denotes request for keyboard input as 
follows: the two symbols [: are displayed, and the keyboard is unlocked 
on the next line, indented from the left margin. Any valid expression 
entered at this point is evaluated, and the result substituted for the 
Suppose F is a function whose definition includes a quad symbol: 


quad. 
OCR'F! 
ZF 
Z<4xG 
F 
QO: 
3+2 


20 


An invalid entry in response to a request for quae input causes an 
apprenrrace error report, after which input is again awaited. For 
example, entering an expression which has no result produces a value 
error. Function definition mode (the editing or display of functions, 
or creation of new functions) is not permitted during [ entry. In 
general, a system command entered during ( input is executed, but the 
system's response to the command is not treated as a response to []. 
‘After execution of a command, valid input is again awaited (unless the 
command was one which replaced the contents of the active workspace). 
An empty input (one containing nothing other than zero or more spaces) 
is rejected and the system again awaits input. 


CHARACTER INPUT 

The quote-quad symbol [ (that is, a quad overstruck with a quote) 
is a request for character input: entry is permitted at the left margin 
and data entered are accepted as characters. For example: 


XO 

CAN'T (Quote-quad input, not indented) 
x 

CAN'T 


INTERRUPTING INPUT 

Execution of a defined function containing a request for [! input 
can be interrupted at the statement containing the |] by entering a 
statement which has no value (for example ¢#'' or a branch statement, or 
any defined function which does not return a result). This suspends 
execution of the statement containing the [], with the report VALJ//F 
ERROR. A command that requires saving the workspace (either SAVF or 
CONTINUE, described in Section 8), issued during a request for |] input, 
also interrupts the statement containing the 0) before carrying out the 
command. 

The response + entered in response to [] abandons execution of the 
function and any pendent functions leading up to it. 

A request for either or [| input can be interrupted, in the case 
of certain terminals, by entering the three letters 0 YU Tf, in that 
order, but with a backspace between each pair so that they all 
overstrike. This interrupts execution, but does not cause an exit from 


a defined function. 
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NORMAL OUTPUT 


The quad symbol appearing immediately to the left of a 
specification arrow indicates that the value of the expression to the 
right of the arrow is to be displayed in the standard format (subject to 
the printing precision OPP and the printing width OPW). Hence, «x is 
equivalent to the statement xX. The longer form [+¥ is useful when 
employing multiple specification. For example, [+Q<«X*2 assigns to @ the 
value X*2 and then prints the value of YXx2. 


The maximum length of a line of normal display (measured in 
characters) is called the printing width, and is given by the value of 
the system variable OPW. The maximum and minimum effective values of 
the printing width depend upon the system being used, and the 
appropriate user's guide should be consulted. A display whose lines 
exceed the printing width is ended at or before the maximum length, and 
continued on subsequent lines. 


BARE OUTPUT 


Normal output includes a concluding new line signal so that the 
succeeding display (either input or output) will begin at a standard 
position on the following line. Bare output, denoted by expressions of . 
the form {+X does not include this signal if it is followed either by 
another bare output or by character input (of the form x«l). 


Character input following a bare output is treated as though the 
user had spaced over to the position occupied at the conclusion of the 
bare output, so that the characters received in response will normally 
be prefixed by a number of space characters. This allows for the 
possibility that, after the keyboard is unlocked, the user backspaces 
into the area occupied by the preceding output. The following function 
prompts the user with whatever message is supplied as its argument, and 
evaluates the response: 


OCR'PROMPT' 
Z2*PROMPT MSG 
O<MSG 
2+] 


Using such a function, the expression: 
PROMPT 'ENTER CAPITAL: ' 

would have the following effect: 
displayed by system 
pee ee 


ENTER CAPITAL: 1000 


entered by user 


The value of Z is as many blank characters as there are characters 
in MSG, followed by the characters entered by the user. In this case Z 
will have fifteen blanks followed by the character '1000'. 


The new line signals that would be supplied by the system in order 
to break lines that exceed the printing width are not supplied with bare 
Output. However, since an expression of the form [+¥ entered directly: 
from the keyboard (rather than being executed as part of a defined 
function) must necessarily be followed by another keyboard entry, the 
output it causes is concluded with a new line signal. The effect is in 
this case indistinguishable from normal output, except for the 
possibility of exceeding the printing width limitation. 
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SECTION 8: SYSTEM COMMANDS 


An APL system recognizes two broad classes of instructions, 
statements and system commands. System commands control the initiation 
and termination of a work session, saving and reactivating copies of a 
workspace, and transferring data from one workspace to another. 


System commands can be invoked only by individual entries from the 
keyboard and cannot be executed dynamically as part of a defined 
function. They are prefixed by a right parenthesis. 


The system commands are summarized in Figure 8.1. They will be 
discussed under three main headings: 


1. The active workspace. 
a. Action. 
b. Inquiry. 


2. Workspace storage and retrieval. 
a. Action. | 
b. Inquiry. 


3. Access to the system. 


A command that is not recognizable, or is improperly formed, is~ 
rejected with the report INCORRECT COMMAND. Certain commands may also. 
result in more specific trouble reports; these are discussed in the 
appropriate context and are summarized in Figure 8.2. 


Once its execution has started, a eyeren command cannot be 
interrupted, although display of the system's response to the command 
can be suppressed by an interrupt signal. 


In the text that follows, each system command is shown in a sample. 
form. In use, the appropriate names or numbers should, of course, be 
substituted for those shown. 


A A letter of the alphabet. 

N A number. 

USERNO A user account number. 

LIBNO A library number (that is, either a 


user account number or a public 
library number). 


WSNAME A workspace name. 
GRPNAME A group name. 
OBJNAME A name of an object within a 


workspace (that is, a function, a ' 
variable, or a group). 


PASSWD A password, which must match the 
previously set value. 


NEWPASS A new password, which need not match 
the previously set value. 


C J Items enclosed in brackets may in - 
some circumstances be omitted. 
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PURPOSE NORMAL RESPONSE 


Identify user and start use of APL 


TROUBLE REPORTS 


15 12 13 14 


TERMINAL CONTROL COMMANDS. 


{public-address] 
header 

system 

{SAVED time date]. 
[time date CONTINUE] 
header : 
account 

[time date coNnrrNue] 
header 


ynumber [pass] 


Replace ws CONTINUE by copy of active ws and 
end use of APL . 7 


)conTrnve [newpass] 


Replace ws CONTINUE by copy of active ws, end 
use of APL, but hold connection 


CONTINUE HOLD {newpass] 


account 

Orr [newpass] End use of APL header 
account . 

)OFF HOLD [newpass] header 


End use of APL, but hold connection 
: ‘ account 


ACTIVE WORKSPACE CONTROL COMMANDS 


Activate a clear ws 
Copy all global objects from named ws into 
active ws 

Copy global objects named from designated ws 
into active ws 

Erase global objects named from active ws 
Gather objects into (or disperse) a group 
(first name designates group) 

Activate copy of named ws 

Copy all objects from designated ws not named 
in active ws 

Copy objects designated that are not named in 
active ws . 

“| Change identification of active ws 


<< 


_)GLEAR : 
}eoPY wsid [pass] 


416.17 18.19 20 


ycopy wsid [pass] names 47:16 17:18 19 20 


16 
17:16 


)ERASE [names] 
)GROUP names 


18 19 


SAVED time date / 34.18 
23.4 6 16 17 18 19 20 


)LOAD wsid [pass] 
SAVED time date 


)pcoPpy wsid [pass] 


)Pcopy wsid [pass] ‘names SAVED time date 23467 16 17 18 19 20 


)wSID wsid [newpass] was wsid 


LIBRARY CONTROL COMMANDS 


)DROP accessible-wsid Drop ws from library time date 3.4 20 
SAVE Place copy of active ws in library time date wsid 3.49 11 18 
)SAVE wsid [newpass] Replace named ws by copy of active ws time date 3.4 9°10 11 18 


INQUIRY COMMANDS 


List’ defined functions (whose initials follow | [names] 
given character in alphabet) 

List members of named group : : 

List groups (whose initials follow given 
given character of alphabet) 

List workspaces in designated library (whose 
initials follow given character in alphabet) 


)FNS [alphabetic] 


[names] 
[names] 


)GRP name 
)GRPs [alphabetic] 


)LIB (number] [alphabetic] [names] 


Sr List halted functions state-indicator 

)SINL List halted functions and associated local state-indicator and 
ae names : ; names 

)SYMBOLS Give maximum number of names in ws Is number 


List global variables (whose initials follow [names] 
given character in alphabet) 


Give wsid of active ws 


)VARS [alphabetic] 


)WSID [number] name 


Notes:.1. Items in brackets are optional 
2. Abbreviations and meanings: 


ws workspace 

pass a colon possibly followed by a password 

newpass a pass that does not have to match a previous password 

header a port number, time of day, date, and user-code 

account gives the connect time and compute time since last start 
and since beginning of the accounting period 

wsid a ws name possibly preceded by a library number 


public-address a message to users of the system’ 
3, The commands )FRASE, )FNS, and )VARS have variants that are system functions 
{see (zx and Qvc). 


Figure 8.1: System Commands 
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TROUBLE REPORT 


[ed 


APL. already in use at terminal 


1) To display account number, use [Ar 
2) To change account number, execute 
)OPF HOLD or. )CONTINUE HOLD and 

sign on 


1 ALREADY SIGNED ON 


DEFN ERROR Attempted copy or protected copy of 
function definition as response to 


O input request (on some systems) 


IMPROPER LIBRARY REFERENCE 1) Number is not a library number, or 
2) Attempted save into alien library, 
or 3) Attempted reference to alien 


CONTINUE ws 


INCORRECT .COMMAND 


5 INCORRECT SIGN-ON 


NOT COPIED: names Global homonyms in active ws are 


protected 


NOT FOUND: purported names 


Wg does not contain global objects 
with purported names 


NOT GROUPED, NAME IN USE 1) Use different name for group, or 


2) Erase global object if not neéded 


First name is name of a global 
|fun¢tion or variable 


NOT SAVED, THIS WS IS CLEAR WS 


stored 


A clear ws has no name and. cannot be 


| Attempted replacement of a stored ws |Remove active ws, then store 
whose identification does not match 


that of the active ws 


NOT SAVED, THIS WS IS wsid 


Allotted number of stored wss 
previously reached 


1) Drop an unneeded ws, or 
2) Ask APL operator to increase quota 


Nor SAVED; WS QUOTA USED UP 


NUMBER IN USE Consult APL operator 


Authorization for use of number has 
been withdrawn 


NUMBER. LOCKED OUT consult APL operator 


1) Number entered is not an account Consult APL operator 
number, or 2) Password missing, or 


3) Wrong password used 


NOT IN SYSTEM 


NUMBER 


If chronic, redial or have terminal 
lor phone repaired 


Transmission failure or more than the 
implementation allowed number of 
characters entered in one line 


RESEND 


State indicator damaged while 
performing an )FRASE or )COPY command 


SI DAMAGE 


Too many names used rase objects not needed, save ws, 
clear active ws, and perhaps change 
limit, using )SYMBOLS, copy the 


saved ws and rename the active ws 


SYMBOL TAPLE FULL 


Workspace full, possibly because of 
1) Temporary values produced during 
evaluation of an expression, or . 

2) Value assigned to sharéd variable 
by partner. 


1) Erase objects not needed, or 
2) Clear state indicator, or 
3) Revise method of calculation 


WS PULL 


1) Password missing, or 
2) Wrong password used 


WS LOCKED 


20 WS WOT FOUND 


No stored ws with given identificatio! 


Figure 8.2: Trouble Reports 
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< > Items enclosed in angles. may in some 
' circumstances be omitted, and, where 
omitted, the system supplies values 
from the existing user 
identification, workspace 
identification, or previously 
established password. 


COMMANDS THAT MODIFY THE WORKSPACE ENVIRONMENT 

The following system commands affect the active workspace, the 
environment in which computation takes place and in which names have 
meaning. In particular, the active workspace contains the settings of 
the state indicator (discussed in Section 7) and other elements of the 
computing environment, mediated by several of the system variables 
(discussed in Section 4). 


)CLEAR 


This command is used to make a fresh start, discarding the 
contents of the active workspace, and resetting the 
environment to standard initial values (see Figure 8.3). At 
sign-on, the user receives a clear workspace characterized by 
these same initial values, unless the workspace CONTINUE was 
automatically loaded. 


Symbol table size 
Horizontal tabs, OH#7 
Index origin, oro 
Latent expression, OLX 
ane counters OLC 

State indicator 
Workspace name 
Workspace password 
Printing precision, OPP 
Printing width, OPW 
Comparison tolerance, UCT 
Random link, OFZ 


Work area available, OWA 


Note 1. 


256 (1) 

Empty (2) 

a 

Empty 

Empty 

Cleared 

None (CLEAR WS) 
None 

10 (1) 


120 (1,2) 


1E 13 (1). 


16807 (1). 


Depends on the local 
installation. (2) 


These values may vary from system to 


system; those shown are widely used. 


Note 2. 


For some systems these values may depend 


upon options selected by the user. 


Figure 8.3. Environment Within a Clear Workspace 
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)SYMBOLS N 


Sets the size of the symbol table, that is, the maximum number 
of names that may occur in the workspace. (Note that the 
occurrence of a name includes not only the names of functions, 
variables, or groups themselves, but also any names occurring 
within their definitions). New values of the maximum may be 
set only in a clear workspace. An attempt to change the 
maximum once the workspace is no longer clear, or to set it 
outside the range permitted by the system, is rejected with 
the report INCORRECT COMMAND. Valid use.of the command 
results in the report WAS ..., showing the former limit. 


)ERASE LOBJNAME1 OBJNAME2 OBJNAME3 ...] 


The global objects named are expunged from the workspace; 
shared variable offers with respect to any of them are 
retracted. If a name is the name of a group (see below), the 


If a halted function is erased, the report SI DAMAGE is 
displayed, and the name of that function is replaced in the 
state indicator by blanks. It is not possible to resume the 
execution of an erased function, and the user should enter > 
one or more times to clear the state indicator of indications 
of damage. 


If an object named in the command cannot be found, the report 
NOT FOUND: is emitted, followed by a list of the objects not 
found. 


)COPY <LIBNO> WSNAME [:PASSWD] < OBJNAME1 LOBJNAME2 ...] > 


The indicated global objects (but not system variables) are 
copied from the indicated workspace (the source workspace) 
into the active workspace. The system reports the date and 
time at which the source workspace was saved. 


If the list of objects to be copied is omitted, all global 
objects other than system variables are copied from the source 
workspace. 


If the indicated source workspace is for some reason 
unavailable, copying cannot take place. The possible errors 
in gaining access are the same as those discussed under the 
LOAD command, namely IMPROPER LIBRARY REFERENCE, WS NOT FOUND, 
WS LOCKED. 


When an object to be copied is a group, the group membership 
list is copied as well as all those of its members which exist 
as global objects in the source workspace. 


When an object to be copied has the same name as a global 
object in the active workspace, the copied object replaces it. 
If there was a shared variable offer with respect to the 
variable thus replaced, the offer is retracted. 


If names explicitly mentioned in the copy command are not the 
names of global objects in the source workspace, the system 
reports NOT FOUND: followed by a list of the objects not 
found. 
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Copy During Evaluated Input. A copy command can be entered 
while a request for evaluated input (U0:) is pending. The 
objects copied will then exist in the workspace but do not 
become the value of Q. The request for evaluated input is 
then repeated. However, definition mode may not be entered 
during evaluated input, and hence the definition of a function 
may not be copied during evaluated input. An attempt to do so 
is rejected with the report DEFN ERROR. The following trouble 
reports may arise during copying: 


WS FULL There is insufficient space to accommodate all the 
material to be copied.. However, those objects copied before 
space was exhausted remain in the active workspace. 


SYMBOL TABLE FULL New names occurring in the copied material 
exhaust the capacity of the symbol table. Those objects 
copied before the symbol table was exhausted remain in the 
active workspace. 


SI DAMAGE A copied object has replaced the definition of a 
halted function, so that its halted execution cannot be 
resumed. The user should then enter + enough times to clear 
the state indicator of indications of damage. 


)PCOPY <LIBNO> WSNAME [:PASSWD] < OBJNAME COBJNAME2 ...] > 


The protecting copy command works in the same way as the 
unprotecting copy, described above, except that a global 
object having the same name as one already present in the 
active workspace is not copied. If any object is not copied 
for this reason, the system reports NOT COPIED: followed by a 
list of the objects not copied. 


GROUPING TO FACILITATE COPYING OR ERASURE 


It is frequently convenient to copy into the active workspace 
several related functions and variables, and to erase them when they are 
no longer needed. To facilitate such transfers, a group may be defined 
by supplying a list of names that are to be copied or erased together. 
Since the group's definition will exist in the workspace, it must have a 
name distinct from that of any global object in the workspace. 


The definition of a group consists of a list of names. It is not 
necessary that objects having those names exist in the workspace. When 
a copy command or an erase command mentions the name of a group, then 
not only the definition of that group but also all global objects whose 
names appear in the membership list are copied (or erased, as the case 
may be). : 


If the membership of a group A includes the name 2 of another 
group, the act of copying A causes the membership list of B to be 
copied, but copying does not extend further. That is, the objects 
referred to in the membership list of B are not copied. The same 
applies to erasure. If an object named in the membership list of a 
group does not exist in the workspace, it cannot be copied or erased, 
but no report is generated. 


)GROUP GRPNAME [GRPNAME] [OBJNAME1 OBJNAME2 ...] 


A group having the name GRPNAME and consisting of the 
membership list shown is formed in the active workspace. If 
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the name is already in use as the name of a group, the new 
membership list (possibly empty) supersedes the old. 


If a group is given an empty membership list, it is dispersed. 
Dispersal of a group has no effects on its members. (whereas 
the command )FRASE GRPNAME applied to a group expunges both 
the group definition and the members). — 


If the name of the group appears also as one of the members of 
the group, the former membership list is merged with the list 
provided in the command, thereby appending new names to the 
membership list. 


The system makes no acknowledgment of a successful grouping. 


An attempt to form. a group having a name already in use as the 
name of a global variable or function in the workspace is 
rejected with the report NOT GROUPED, NAME IN USE. 


Since the membership list of a group requires space within the 
workspace, the attempt to form a group may find insufficient 
space in the workspace or in the symbol table, resulting in 


. the trouble reports WS FULL or SYMBOL TABLE FULL. 


The following commands report aspects of the workspace 
environment, but produce no change in it. 


) SYMBOLS 


)FNS [A] 


JVARS CA] 


)GRPS [A] 


Elicits the report IS max, number IN. USE, showing the current 
maximum number of symbols and number: of symbols in use. 


- Reports a list of the global functions in the active . 
workspace, in alphabetical: order [starting with the letter 
indicated]. . . 2 


Reports a list of the global variables in the active 
workspace, in alphabetical order [starting with the letter 
indicated] . Paes Die oa 


Reports a list of the groups in the active workspace, in 
alphabetical order [starting with the letter indicated] . 


)GRP GRPNAME 


STI 


Reports the membership of the. group named GRPNAME. 


Displays the state indicator, showing the status of halted 
functions, with the most recently halted first. The list 
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shows the name of the function and the number of. the statement 
at.which work. is halted. The actions that a user can take 
with respect to a hatted function are described in Section 7. 


‘Suspended functions aré marked in ‘the state indicator by an 
asterisk, while pendent, functions appear on the state 
indicator without an asterisk. . Damage to the state indicator 
is shown by a statement unDES of “1 alongside the name of the 
affected function. 


)SINL 


Displays the state indicator in the same way as )SI, but in 
addition, with each function.listed, lists names that are 
local to its execution. 


COMMANDS EOR WORKSPACE: STORAGE AND RETRIEVAL 
The user may request. that a duplicate of the subpentiy active 
workspace be saved for later use. When a duplicate of a saved workspace 
is subsequently re-activated, the entire environment of computation is 

restored as it was, except that variables which were shared in the 
active workspace are not automatically shared again when the workspace 
is reactivated. 


LIBRARIES OF SAVED WORKSPACES 


The set of workspaces saved for a particular user is called that 
user's library. Each workspace is identified by the user's account 
number and the name the user assigns to it. However, in referring to 
workspaces. in one's own library, the account number. may be omitted; the 
user's own number is supplied automatically. 


In systems with multiple users, it is often convenient to use 
functions or variables contributed by others. One user may activate an 
entire workspace saved by another user, or may copy from it selected 
items. To do so both the library number and the name of the desired 
workspace must be supplied. However, the system provides no way of 
learning either the account numbers or the names of workspaces belonging 
to other users. Thus a user may make use of material from the libraries 
of others only if they supply that information. In no case may a user 
add, changer, or delete material from ene DEPEREY of another user. 


Certain ‘libraries (usually. identified by a particular group of 
library numbers) are not assigned to individual users, but are 
designated as public libraries. Any user may obtain a list of 
workspaces in a public library, and may use public workspaces. However, 
there may be restrictions on who can save, drop, or modify a workspace 
in a public library. In general, a public workspace can be re-saved or 
deleted ues by the user who first saved it. 


NAMES AND PASSWORDS FOR WORKSPACES 


A saved workspace must be named. The name of a workspace may 
duplicate a name used for an APL. object within the workspace. A 
password may be paired with the name of a workspace. Once this is done, 
any reference to the saved workspace (other than dropping it) must be 
accompanied by the password. 
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The rules governing what workspace names are permissible and what 
passwords are permissible may differ from each other and from the rules 
governing names within a workspace. In particular, the number of 
significant characters’in a workspace name or in a password may differ, 
and may be less than the number of significant characters:in a name used 
within a workspace. Workspace names and passwords may be composed of 
alphabetic and numeric characters, but not spaces or special symbols; 
workspace names must begin with an alphabetic, but this restriction does 
not apply to passwords. : 


JWSID <LIBNO> WSNAME [:NEWPASS] 


Assigns to the active workspace the name indicated, and 
(optionally): the library number or the password indicated. 
Use of the colon with nothing following it assigns an empty 
password; that is, it removes a former password if there was 
one. If the active workspace is subsequently saved, future 
use of the saved workspace will require use of the password 
set here. 


Setting of the active workspace's identifcation is 
acknowledged by the report WAS ... followed by the former 
name, but not the former password. 


)SAVE < <LIBNO> WSNAME -<:NEWPASS> > 


A duplicate of the active workspace is saved (optionally, in 
the indicated public library, otherwise in the user's own 
library) under the indicated name, and (optionally) with the 

_ new password indicated. If the user number, workspace name, 
or password are omitted, they are supplied from the workspace 
identification. After saving, the active workspace has the 
same indentification (including. account PUMDSE: name, and 
password) as the- saved: workspace. 


Although saving does not affect the state of sharing in the 
active workspace, current values of =he shared variables are 
saved in the stored copy. 


Saving is acknowledged by a report showing the date and time 
at which the workspace was saved. 


The command to save the active workspace may be rejected, with 
trouble reports as Roliows: 


IMPROPER LIBRARY REFERENCE The system does not permit a 
workspace to be saved in the private library of another user, 
or in a: non-existent public-library, nor does it permit a 
workspace named CONTINUE to be saved in a public library. 


NOT SAVED, THIS WS IS... Saving is not permitted when the 
name. given in the command matches the. identification of an 
existing saved workspace but does not match the identification 
of the active workspace. This restriction prevents the user 
from inadvertently overwriting one workspace with another. 


“WS QUOTA USED UP Saving is permitted only while the number of. 
“workspaces currently saved or. the space used by the saved 
workspaces is less than the user's aitocabton: .Quotas are set 
‘by the pyecen operator. sine BA 


WS FULL The workspace contains a shared variable whose value, 
when brought in to the workspace, would require for its 
storage more work area than is available in the workspace. 
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NO SPACE. There is insufficient space in the system's 
outta storage ta accomodate | ene: WOrkEpace.«:; 


LIBRARY. TABLE FULL ‘The svetem" s directors. of daved workspaces 
Tacks: Rpace in which to record this one. . 


The Tast. two prob lene cannot be remedied by: the” ‘user's action 
but require intervention from: the system manage to expand the 
system facilities. 


)CONPINUE [HOLD] <: NEWPASS> 


The active workspace is saved under: the name CONTINUE, and 
(unless a different password is specified) with the password 
previously assigned to the. active workspace. Then the 
terminal is signed off in the same way as with the command 
)\OFF, described below. Unless the CONTINUE workspace is 
password-protected, it will be automatically loaded at the 
next sign-on. 


The system operator has the power to force a sign off 
("bounce") some or all users. If a user is bounced, the 
system behaves as though the user had entered the command 
)CONTINUE. A )CONTINUE is also executed automatically if the 
user's connection to the system is broken without a normal 
sign-off; see the discussion of "Automatic Saving After Line 
Drop, ot below. 


The command )CONTINUE may be rélected for the same reasons 
that apply to )SAVE, listed above. 


)LOAD <LIBNO> WSNAME [:PASSWDJ 


A duplicate of the indicated workspace (including its entire 
computing environment) becomes the user's active workspace. 
Shared variable offers in the former active workspace are 
retracted. Following a successful )LOAD, the system reports 
the date and time at which the loaded workspace was last 
saved. The system then immediately executes the latent 
expression (GZX). : 


Invalid requests to load a workspace may result in ‘the 
following trouble reports: . 


WS NOT FOUND The ‘naieatea workspace cannot be found. 
WS LOCKED. ‘The password supplied in the donmand does not match 
the password of the saved workspace, or_is migetng : from the 
command. when required. & 
IMPROPER LIBRARY REFERENCE The user is ae to use the 
indicated library. . 
)DROP <LIBNO> WSWAME - 
The named workspace is. removed from the user's library or from 
_-the: indicated public library. The system reports the date and 


time. The. password is not required to drop :a saved workspace. 
Dropping a workspace has no effect on the active workspace. 
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An attempt to drop a workspace saved by someone other than the 
user is rejected with the report IMPROPER LIBRARY REFERENCE. 
Reference to a non-existent workspace is rejected with the 
report Ws. NOT FOUND. 


AUTOMATIC SAVING AFTER LINE-DROP , 
AND SPECIAL PROPERTIES OF THE CONTINUE WORKSPACE 


If the connection to the computer or host system is broken before 
a normal’ sign off, andthe active workspace is not empty, the system 
acts as though the user had entered the command:)conTrnuvE, thereby 
Saving the contents of the active workspace under the name CONTINUE. 
The CONTINUE workspace is intended solely for temporary storage. 
Regardless of the name of the active workspace, it can under these 
conditions be saved under the name cowrinuvz. That is, a previously 
saved workspace named CONTINUE may be replaced by the active workspace 
without the PEeeeccson against overwriting provided for other 
workspaces. 


“Since any account may have a workspace named COWTINUF, to assure 
privacy the CONTINUE workspace of one user can not be loaded by another 
user, nor can it be saved ina public library. The workspace CONTINUE 
does not count as part of the user's aucks of saved workspaces. 


COMMANDS REGARDING WORKSPACE STORAGE AND RETRIEVAL 


SS OL 


Reports the identification of the active workspace, showing 
the library number if other than the user's own, and the 
workspace name, but not the password. 


)LIB <LIBNO> [A] 


- Displays the names of the workspaces in the user's private 
«, library or in the indicated public library. In systems in 
which the optional letter of the alphabet can be used the 
display is alphabetized. If the command is followed by a 
letter of the alphabet, the display begins with names starting 
with that letter. 


An attempt to display the list of workspaces in another user's 
private library or in a non-existent public library is 
rejected with the report IMPROPER LIBRARY REFERENCE. 


ACCESS TO THE SYSTEM 


-Each user of the. system is saerenee by the system manager an 
account identification used to identify data storage and charges for use 
of the system. The account identification is required in order to sign 
on. 


Spach: user is also assigned a quota ‘indicating the maximum number 
or capacity of saved workspaces, and an interface quota indicating the 
maximum naper: of variables chat me: be shared simultaneously. 


In some systems, a cpu limit may be established for an account, 
limiting the amount of central processor time per. keyboard entry. When 
the limit is reached, an interruption is made in the same way as if a 
strong interrupt had been signalled from the keyboard. 
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SIGN ON 


SIGN OFF 


Before work can be started, a physical connection to the 


computer must first be established. This may require as 
little as turning a switch, or may require establishing a link 
from a dial-up terminal to a central computer, possibly 
passing through intermediary computing systems which are host 
to APL, depending on the system employed and the:type of 
terminal device employed: 


Once communication is established, a numerical identification: 
of the user must be provided to the system. The precise 
manner of providing this varies from system to bP ig 


At sign on, either a lear workspace or the CONTINUE 


workspace is activated, depending on the condition which . 


terminated the preceding session, and the system in:use. -- 


Successful sign on is acknowledged by a message showing the 
port number, the date and time, the user's name, and the 
system identification. This may be preceded by a broadcast 
message from the system operator. If CONTINUE was activated, 
the system reports the date and time at which it was saved. 


An attempt to sign on may be rejected, with one of the 
following reports: 


ALREADY SIGNED ON The terminal is in use, and must first be 
signed off (or bounced by the system operator) before a new 
sign-on can be accepted. 


NUMBER IN USE The indicated account number is in use at 
another. port. This may arise either because another user is 
in fact using the account, or occasionally (perhaps because of 
an equipment problem) because the system did not complete 
disconnection at an earlier work session. 


NUMBER NOT. IN SYSTEM This report means either that the 
indicated account has not been enrolled, or that: the password 
supplied does not match the password. last set. 


‘NUMBER LOCKED OUT Authorization for use of the account has 


been withdrawn. Workspaces saved in this panary cannot be 
Leaded or Sopied by anyone. 


)OFF [HOLD] <: NEWPASS> 


An accounting report is displayed, showing the port number, 
date and time, and user code, followed by the connect time and 
central processor time used at the current session. and 
cumulatively since the last accounting. : 


If the word HOLD is used, the connection to the computer or 
host system is held for a brief period to accommodate sign on 
by another user. 


If a colon is used, the. ‘word following it (or SpABy. will be 
the Paseword for Bubeeduent sign ons. : 
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JCONTINUE [HOLD] <:NEWPASS> 


Because this command has the dual effects of saving the active 
workspace and signing the user off, it is described here and 
also in the section on workspace storage and retrieval. 


The user is signed off in the same manner as with )OFF, but 
the active workspace is first saved under the name CONTINUE. 
If a password is set, it will apply at subsequent sign-ons. 


The command may be rejected if it is impossible to save the 
CONTINUE workspace, either because the physical resources of 
the system are unable to accomodate it, or because of a full 
workspace produced when the value of a shared variable is 
transferred to the workspace. See the preceding discussion of 
the commands )SAVE and )CONTINUE. 
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APPENDIX A: APLSV CONSIDERATIONS 


This appendix describes the ways in which APL under APLSV differs 
from the description in the body of this manual. The points are grouped 
under the names of the sections to which they apply. Further 
information on system facilities and auxiliary processors, as well as 
more detail on system commands , will be found in the publication APL 
Shared Variables (APLSV) User's Guide, SH20-1460. 


ES 


FUNDAMENTALS 


A value error is reported only for use of a name that does not have 
a value; a numeric constant whose magnitude is too large or too small to 
be represented internally is rounded to the largest (positive or 
negative) number, or to zero. 


In addition to the characters shown in Figure 2.2, a new-line 
character may occur in a character constant. 


The character delta-underbar, which is no longer considered part of 
the APL character set, is still supported as an alphabetic, for the sake 
of compatibility with old workspaces. Use of this character in any 
manner should be avoided in new applications. 


SYSTEM FUNCTIONS AND SYSTEM VARIABLES 

The I-beam functions, as described in the APL/360 User's Manual, 
GH20-0906, are still supported in APLSV. Their use should be avoided in 
new applications, and the appropriate system functions or system 
variables used instead. 


FUNCTION EXECUTION 


Mixed output using semicolons is supported for the sake of 
compatibility with applications carried over from APL/360, but its 
.further use should be avoided. The format primitive functions should be 
used for new applications requiring the combined output of character and 
numeric data. 


SYSTEM COMMANDS 


Variations in system commands are given here in summary form only. 
As noted above, detailed information will be Found in the publication 


eS Re 


The following sy seein commands have been added to support particular 
facilities of the implementation: MSG, MSGN, OPR, OPRN, PORT, and PORTS. 
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APPENDIX B: VS APL CONSIDERATIONS 


This appendix describes the ways in which APL under VS APL differs 
from the description in the body of this manual. The points.are grouped 
under the names of the sections to which they apply. Further 
information on system facilities and auxiliary processors, as well as 
more detail on system commands , will be found in the publications VS APL 
for VSPC: Terminal User's Guide, SH20-9066, and VS APL for CMS: Terminal 


ee eee Oe 


User's Guide, SH20-9067. 
FUNDAMENTALS 


An error report, STACK FULL occurs when the execution stack area, a. 
distinguished part of the physical workspace, is exhausted. The 
corrective action is to increase its size by means of ene STACK system 
command. 


In addition to spivnee and public libraries, there are project 
libraries, whose workspaces are intended for use by a selected set of 
users. Depending upon installation options, the ability to load, save, 
or drop a workspace in a project library may be restricted to such a 
user set. Public libraries are normally maintained by a library manager 
who has special access to them, and other users are not allowed to save 
or drop WOEKSPEer= in a public library. 


Workspace names “and passwords may not contain underscored 
alphabetic characters. 


PRIMITIVE FUNCTIONS AND OPERATORS 


The use of an indexed variable to the left of specification is more 
restricted: either 1=x/pR or pk must exactly equal pZ, where Z and PF are 
the values of the expressions to the left and right of the 
specification, respectively. 


SYSTEM FUNCTIONS AND SYSTEM VARIABLES 
The system variables O77 (terminal type) and OUL (user load) are 
not supported. 


An additional system variable, OfC, provides three terminal control 
characters: backspace, new line, and line feed, in that order. Thus, 
X+'ABC' (u7C {1 1 11,'° ~', then X will display as ABZ. 


SHARED VARIABLES 


A dyadic form of the system function OSVQ can be used to obtain 
information about outgoing offers to share variables. The right 
argument is either an empty vector or one or more processor numbers, 
much like the argument of monadic OSVvQ (which provides information on 
incoming offers). The left argument is the degree of coupling of 
interest. 


If the right argument is empty, the result of the function is a 
vector of processor numbers to whom variables now having the given 
degree of coupling have been offered. If the right argument is not 
empty, the result is a matrix of shared variable names: a name is 
included if its active referent is shared with one of the designated 
processors and it has a degree of coupling equal to the left argument. 
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Surrogate names are included in the result, alongside the corresponding 
variable names.: 


The use of [SVQ has no effect on the environment. The formal 
requirements. on its arguments are as follows: the left argument must be 
a scalar with value.1 or 2, and the right argument must be a. scalar or. 
vector with elements having..integer values less. than 2%«31. 


SYSTEM COMMANDS — 


Variations in system commands are given here in summary: form only. 
As noted above, detailed information will be found in the publications 
VS APL for VSPC: Terminal User's ouiaee SH20-9066, and.VS APL for CMS: 
Terminal User's © s Guide, SH20-5067. eal 


The CLEAR and LOAD ‘commands have an extra optional syntactic 
element which can be used to specify the size of the WOEEE RAGE being 
activated. 


The OFF HOLD and CONTINUE. HOLD. commands return the user to the host 
system for possible use of other system facilities, but. any further work 
remains under the same user identification. 


In system soumianas that may have a password, a colon. not. followed 
by a password is interpreted in different ways, according to the host 
system. Ji 


The following Eyuten commands have been added tS gupper’ particular 
facilities of the implementation: MSG, OPR, QUOTA, STACK, and 
WSSIZE. 
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APPENDIX C: 5100 PORTABLE COMPUTER CONSIDERATIONS 


This appendix gaser ines the ways in which APL on the 5100 Portable 
Computer differs from the description in the body of this manual. The 
points are grouped under the names of the sections to which they apply. 
Further information on system facilities and auxiliary processors, as 
well as more detail on system commands, will be found in the publication 
IBM 5100 APL Reference Manual, SA21-9213. 


FUNDAMENTALS 


A value error is reported only for use of a name that does not have 
a value; a numeric constant whose magnitude is too large or too small to 
be represented internally is rounded to the largest (positive or 
negative) number, or to zero. 


In addition to the characters shown in Figure 2.2, the characters $ 
# 2 &€— and % may occur in character constants. They have no functional 
significance in APL, and will cause syntax errors if used in any other 
way. 


SYSTEM FUNCTIONS AND SYSTEM VARIABLES 

The delay system function ODL, and the system variables DAT 
(horizontal tabs), DAI (account information), OfS (time stamp), OTT? 
(terminal type), and OVZ (user load) are not supported. 


FUNCTION DEFINITION 


The forms [VOM] and [WO] used during function editing are 
equivalent. In both cases line W is displayed in the input area of the 
screen, and it can then be edited using the screen facilities for 
insertion, deletion, and replacement of characters. 


FUNCTION EXECUTION 


Mixed output using semicolons is supported for the sake of 
compatibility with applications carried over from APL/360, but its 
further use should be avoided. The format primitive functions should be 
used for new applications requiring the combined output of character and 
numeric data. 


Character input following bare output includes the actual output 
characters, rather than an equivalent number of blanks. 


SYSTEM COMMANDS 


Variations in system commands are given here in summary form only. 
As noted above, detailed information will be found in the publication 
IBM 5100 APL Reference Manual, SA21-9213. 

The following system commands are not BUBrOnteds CONTINUE HOLD, 
OFF, OFF HOLD, GROUP, GRP, and GRPS. 


The CONTINUE command has a different purpose, and will not cause 


automatic loading of the workspace at the next work session. The LIB 
command provides information on files, as well as on workspaces. 
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. The following commands have a slightly modified Syntax and 
response, but retain the same functional pigne scence. COPY, LOAD, 
.PCOPY, WSID, DROP, and. ‘SAVE. Sk OSE eon BP dates 


. The folléviag system Commands have: ‘Seon: added to: ‘support paruicular 
facilities of the implementation: MARK, OUTSEL, REWIND, MODE, and PATCH. 


¥ 
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1050 terminal, 51. 


A 


absolute. value, 20. 23.2 

access, to APL system, 73. 

access control for shared 
variable, 52 53 55 57.. 

access functions, isolation of, as 
programming technique, 4, 

access state of shared variable, 
55. 

account identification, 16 50 83. 

account information, 51. 

activation, workspace, and 
execution of latent expression, 
50 82. 

activation, workspace, by load 
command, 2 50 51 82. 

active workspace, 2 15 50 51 73 79 
82. 

active workspace, system commands 
that affect, 73 79 82. 

adding statement, to function 
definition, 63. 

adding to statement, in function 
definition, 64. = 

addition, 12 18 19. 

alpha, 12. 

alphabetic characters, 10 12. 

ALREADY SIGNED ON, 75 84. 

alternating sum, 25. 

alternating product, 26. 

and, logical, 12 18 20... 

announcement from system operator, 
received at sign on, 84. 

application package, workspace 
for, s 

arccos, 18 24. 

arcosh, 18 24. 

arcsin, 18 24. 

arctan, 14.18 24. ae 

argument, of a function, 13 66. 

arguments, number of. See 

.. valence. 

array, as primitive object, 7.14 
17. : 

arsinh, 18. 

artanh, 18. 

atomic vector, 50 51. : 

attention key, as interrupt 

Signal, 10. - 

automatic start of function. 
execution upon load, 51. 

availability, of name, 49 60. 

axis, operator, 7 27. 33 37.. 


B 


backspace, 9 10 71. 
bar, 12. 


bare output, 72. 

base, 12. 

base null, 12. 

base-value, 42. 

BCD terminal, 51. 

billing, system for, 2 6. 

binomial, 18 19 24 25. 

blank, as’ separator, 13. 

blank, in character constants, 13. 

body of a function, 7 59. 

boolean functions, 17 21. 

bounce, 82. 

bracket, 12. 

branch, control of Baquence, 7.9 
61. 


c 


canonical representation, 47 48 59 

cap, 12. 

cap null, 12. 

card reader, communication through 
shared variables, 52. 

caret, to mark point at which 
correction was requested, 10. 

carrier return, omitted in bare. 
output, 72. : 

carrier return, to release entry 
statement, 9. 

catenate, 30. 

catenate, conformability 
requirements, 34. 

ceiling, 18 21. a ee 

chaining, to join arrays. See 
catenate, laminate. 

character display, see format. 

character editing, of statements 
in function definition, 64. 

CHARACTER ERROR, 11. 

character input, 70. 

character input, interrupted, 71. 

character set, 10 12. 

character representation, 
function, 47 48 59.65, 

character representation,. numbers, 
4a, i : 

characteristics of APL, 4. 

characteristic vector, 30 39... 

characters, enterable from ©. 
terminal, 9. 

circle, 12 19. 

circle bar, 12. 

circle slope, 12. 

circle stile, 12... 

circular functions; 18 23. 

classification, names, 49. 

CLEAR, command, 74, 

clear workspace; 50 76. . 

CLEAR WS, 50 76. 
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close shoe, 12. 

colon, 12 62. 

column, 27 41. 

combinations, 18 19 24 25. 

comma, 12 33. ; 

comment, 62. : : 

communication, with processors 
external to APL, 52. ‘ 

comparison Reena 20 22 oe 51 
76. 

complement, logical, 20. 

complex roots, undefined, 22. 

composite character, 10. 

compound expression, 14. 

compound interest, example, 1. 

compress, 30 36. 

compute time, 51. 

concurrent.process, and shared 
variables, 52. 

conformability, 11 17 28 34. 

conjugate, 18 20. 

connect time, 51. 

connection, broken, 82 83. 

connection, establishing, 84. 

connection, hold, 74 82 84. 

constant, 10. 

continuation, output line that 
exceeds: printing width, 72. 

CONTINUE, command, 74 82 83.. 

CONTINUE, workspace, 80 84. 

CONTINUE HOLD, command, 74 80 83. 

coordinate, array, 4 27 37. 

COPY, command, 71 74 77 78.- 

copying, of. function definition, 
59 71 77. 

correction of statement being 
entered, 9. 

correction, of entry before 
release, 9. 

cos, 18 23.. 

cosh, 18 23. 

coupling, degree of, 54 S72: 

cup, 12. 

cursor, to indicate position of 
next entry, 9.: 


D 


data, names used for, 1. 

data transformations, 43. 

date, 50 51. 

deal, 18 30.39. 

decimal point, in display, 45. 

decimal point, in entering: 
numbers, 10. 

decode, 30 42. e 8 

defined Funor Loney control. of. 


sequence of execution in, 9 61. 


defined functions, treated same 
way aS primitives, 7 66.. - 

definition error, 11 71. 

DEFN ERROR, 11°71 75.77 

degree of’ coupling, 54. 

del, 12. , 

del stile, 12. 
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del tilde, 12. 

delay, 48 50. 

deleting a statement, of function 
definition, 63. 

deletion, workspace. Sée drop. 

delta, 12. 

delta stile, 12. 

DESCRIBE, variable used to explain 
an application package, 2. 

determinant, function for, ae ss 
example, 65... : 

device,.:used to display computer s 
response, 1. 

diagonal, 35. 

dieresis, . 12. 


‘dimension, see shape or axis. 
Gisk-file, used in conjunction 


with APL, 1. 
display, of function definition, 
display, of result of computation, 
19. 
distinguished names, 47. 
division, 12 18 19. 
division by zero, 17. : f 
domain, of scalar functions, 17. 
DOMAIN. ERROR, 11. : 
domain error, produced by: locked 
function, 69. 
domino, 12 40. 
dot, 12. 
double attention, as ae vong. 
interrupt, 10. 
down arrow, 12. 
downstile, character, 10-12. 
drop, 30 36. 
DROP, command, 74. 
dyadic, valence of fuhotion, 13. 
dyadic and mondaic forms of 
primitive functions,’ 18." 
dyadic functions, identity 
“elements of, 19. 


E 


e, base of natural logarithm, 22. 

editing, of function definition, 
59 63 64. 

editing, of function header, 63 
64, 

empty array, 32. 

empty array, Peduceton. over, 17 
26. 

empty branch, 62. 

encode, 30 42. i 

entry, from keyboard, 1 7-9 70 71. 

environment of computation, ahs 

epsilon, 12. 

equal, 12 18-19. : 

ERASE; command, 74°77. °°" 

erasure, dynamic; 49. 

error reports, for execute, 43. 

error report, form of, 10. 


error report, table of, 11. 

error report, when evoked, 10. 

establishment, of function 
definition, 59. ~ 

evaluated input, 70 71. 

evaluated input, during copy, 78. 

evaluated input, interrupted, 71. 

even roots, of negative numbers, 
undefined, 22. 

exclusive or, Bt. 

execute, 30 43. 

execute, error report, 43.. 

execution, of defined function, 
66... 

execution, “order of, “44, 

execution, sequence of statements 
in defined function, 61.66. | 

exit, branch to, 62. 

exit, from function definition 
mode, 64, : 

expand, 30 36 37. 

exponentiation, 22. 

exponential, 18 23. 

exponential form, see scaled form. 

expression, 9. 

expunge, object from workspace,, 
4g, 

extension of gealae function to 
array, 17. 


F 


factorial, 18 24. 

false, number 0 used to represent, 
20. _ 

first, selection of by take, 36. 

first axis, 37. . ; 

fix, function definition, AT 48 
59. 

floor, 10 18 21. 

FNS, command, 2 74 79. 

format, 30. 

function, defined, used in 
statement, 13 5 66. : 

function, derivation of term, 13. 

function, establishment, 47. 

function, represented as character 
matrix, 6°47. _ 

function definition mode, 59 63 
64. 

function display, by canonical 
representation, 6 65. 

function display, in definition 
mode, 64. 

function establishment, 47 48 59. 

function establishment, . failure 
of, 60. "| 

function tables,. generated Py. 
outer product, 29. 

functions, list of, 2. 74° "79. 

functions, primitive scalar, 18. 

functions, used in sample... 
application; ‘display . of, 4 6. 

fuzz, see comparison ‘tolerance. 


G 


general logarithm, 18 23. 

general offer, of shared variable, 
54. 

global names, as referents of 
“system commands and del, 61. 

global objects, in erase command, 
77. 

global use of names, 60. 

grade, 30 38 39. 

greater than, 12 19. 

greatest common divisor, 62 69. 

grid, of consecutive values, 38. 

group, appending new members, 79. 

GROUP, command, 74 78. 

group, dispersal of, 79. 

group, formation of, 78. 

group, in erase command, 77. 

GRP, command, 74.79. 

GRPS, command, 74 79. 


H 


half duplex, shared variable 
access control, 57. 

halted execution, of defined 
function, 60 66.67. 

header, of a function, 7 59 60. 

hierarchy, absence of, 14. 

HOLD, as part of CONTINUE or HOLD 
commands, 74 82 84. 

host. system, 47. —. 

hyperbolic SunGE TONS, 18 23. 


I 


identification, of user account, . 


16 50 83. 

identity elements, 17. 19. 

implication, 21. 

IMPLICIT ERROR, -11 50. 

IMPROPER LIBRARY REFERENCE, 75 82 
83. 

INCORRECT COMMAND, 73. 

INCORRECT SIGN ON, 75. 

INDEX. ERROR, 11. ; 

index generator, 30 38. 

index of, 30 38. 

index origin, 15 22 37 50 51 76. ° 

indexing, of arrays PY arrays, 7 
30 37. es 

inhibition, of set or use of 
shared variable, 57. 


initial value, of shared variable, 


54. ; 

inner product, gouformabiiity of. 
arrays, 28.°.. > 

inner “product, - ‘operator, 7 25.. 


-input from terminal, 1 7071. 


inserting statement, to function 
definition, 63. 7 
integer part, 21. 


Index 95 


interface quota, 54, 

INTERFACE QUOTA EXHAUSTED, 11. 

interrupt,. from terminal, 9._ 

_ INTERRUPT, system response, 11. 

interruption, of character input, 

interruption, of evaluated input, 

interruption, of pending set or 
use of a shared. variable, 55. : 

interruption, of system command, 

inventory, system for, 2 4 6. 

inverse circular functions, 24. 

inverse permutation, 38. 7 

invoice, in sample application, 6. 

iota, 12 30 38. 

italic, font used for capital.. 
letters, 10. 

iterative procedures, use of 
branching in, 61. 

I-beam, 12. 


K 


key, see password. . 

keyboard, typewriter-like, 1 12. 

keying time, 51. : 

L 

labels, in function definition, 
62. coed oes 

labels, localization of, 62. 

large data array, facilitated by 
generalized access, 4. 

last axis, 37. 

last elements, selection of, by 
take, 36.’ 

latent expression, 50 51 76. 

least squares approximation, in 
matrix division, 41. 

left arrow, 9 12. 

left identity, 17. 

LENGTH ERROR, 11 17. 

less than, 12 -18-19..- 

letters of the alphabet, used to 
form names, 1. : 

LIB, command, 74. 

library, collection of workspaces, 
15.16 80... 

library, public ‘and private, 16 80 
83. ‘ 

library number, 77. 

LIBRARY TABLE FULL, trouble rpeort 
during save, 75 82. 

line counter, 50 51 76. 

line drop, automatic saving of 
continue ‘workspace, 82 83. 

line zero, of function definition, 

list of customers, stored as" 
matrix, 3. : 
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LOAD, command, 2 15°50 51 73 79 
ee ce aanis pres ten 
load, workspace, and execution of 

latent expression, 51.73 79 82. 
local names, in function header, 
local use of names, 61. 
local variables, and state. 

indicator, 80. 
local variables, in function 

execution, 66, 
localization, of function | 

arguments and result, 66. 
localization, of system variables, 

50. 
lock, see password. 
locked function, 65 69. 
locked function, interrruption of, 

69. 

LOCKED OUT, 84. 

log, 12 14. : 

logarithm, 19 22. .- 
logarithm, absence of general 

identity element for, 17. 
logical complement, 20. 
logical negation, 20. 


M 


magnitude, 18 20. 

material implication, 21. 

matrix, 14. 

matrix divide, 30 40. 

Matrix inverse, 30 40. 

matrix product, generalized as 
inner product, 7 28. 

Maximum, 18 19 21. 

membership, 30 39. 

message from system operator, 
received at sign on, 84. 

minimum, 10 18 19 21. 

minus, 18 19. 

mixed functions, 17. 

mixed functions, classification 
of, 29. 

monadic, valence of function, 13. 

monadic and dyadic. forms of 
primitive functions, 18. 

multiple specification, 9. 

multiplication, 12 18 19 25, 

multi-dimensional arrays, 14. 


N 


name, expunged from workspace, 48. 

name, standing for variable, 1 9. 

name classification, 48 49, 

name list, 48 49, 

named functions or data, benefits 
“of using, 2. 

names, distinguished, 47, 

names , for symbols, 10. 


names, in statements from 
keyboard, 1.. 

names, rules for forming, 16 80. 

nand, 12 18. 

natural logarithm, 18 22 23. 

negative, 18 20. ae 

negative numbers, sign used for, 
13. 

new-line signal, omitted. from bare 
output, 72. 

niladic, valence of ‘function, 13. 

NO SHARES, system response, 11. 

NO SPACE, 82.. 

nor, 12 18. 

“not, logical, 18 20. 

NOT COPIED, 75 78. 

not equal, 12 18 19. 

NOT FOUND, 75 77. 

not greater than, 12 18 19. 

NOT GROUPED, 75 79. 

not less than, 12 18 19. 

NOT SAVED, 75 81. 

notebook, similiarity | to 
workspace, 2. 

null, 12. 

NUMBER IN USE, 75 84. 

NUMBER LOCKED OUT, 75 84. 

NUMBER NOT IN SYSTEM, 75 84. 

numbers, group of used together, 


numbers, in statements entered 
from keyboard, 1. | 

numeric, characters, 10. _ 

numerical functions, 29 40. 

OFF, command, 74. 

OFF HOLD, command, 74. _ 


0 


offer, shared variable, 50 52 54. 

omega, 12. . : 

one-origin indexing, 15. 

open shoe, 12. ; 

operators, “which modify primitive 
functions, 7 13 17 25. 

or, logical, 12 18 20. 

order, of elements in reshaping an 
array, 32. 

order of execution, 14. 

orders, customer, in sample 
application, 46. 

origin, index, 45 22 37 50 51° 76. 

out of, combinations, or binomial 
coefficients, 18.19 24 25. 

outer product, operator, 7 29... 

overbar, for negative numbers, 12 
13. 

overstrike, illegitimate, 11. 

ovérstriking, to. form escape 
character | from character input, 
7160 


P 


parentheses, 12. 

parentheses, used to indicate 
order of execution, 14. 

password, for user identification, 
16 73 84. 

password, for workspace, 16 76 77 
80 82. i. 

password, in system commands, 73 
82. 

PCOPY, command, 74 78. 

pendent execution, 67. 

pendent function, and localization 
of names, 61. 

pendent functions, and state 
indicator, 67. 

permutation, 38. | 

permutation, random, 39. 

pi, 23. 

pi times, 18 23. 

plus, 12 18 19. 

polynomial evaluation, see decode. 

power, 18 19 22 25, 

precedence, absence of, for 
functions, 7 14. 

precision, and comparison 
tolerance, 20. 

precision,. of character 
representation, 44, oF Ns 

primitive scalar functions, 18. 

primitive objects, arrays as, 4 

primitive functions, 
classification of, 17. 

primitive objects, numbers and 
symbols as, 1. 

primitive functions, symbols for, 
8 : 

printer, used in conjunction with 
APL, 1 52. 

printing precision, 50 51.72 76. 

printing width, 51. 

printing width, and bare output, 
72... 

printing width, in function 
definition, 50. 

printing width, in normal output, 
72 76. 

private library, 16. 

processor, communicating with APL 
via shared variables, 52. 

program, sequence of statements, 1 
é " 

projection, on space spanned by 
column vectors, obtained from 
matrix division, 41. 

prompt, by use of bare output, 72. 

prompting message, before request 
for input, 6.. 

protecting copy, 74 78. 

pseudo-random numbers, 22 39. 

public library, 16 80 81 83. 

punch cards, use in conjunction 
with APL, 52. 


Index 97 


Pythagorean functions, 18 23. 


Q 


quad, 12. 

quad input, 70 71. 

quad-prime input, 70. 

query, 12. ; 

quota, of cpu time per entry, 83. 

quota, of saved workspaces, 80 83. 

quota, of shared variables, 54 83. 

quote, 12. 

quote dot, 12. 

quote marks, around shaeesees 
constants, 13. 

quote mark, as member of character 
vector, 13. | 

quote quad, 12 70. 


R 


radian measure, in argument to 
sin, cos, tan, 23. 

radix, 42, . 

random link, 22 50 51 76. 

random number generator, 22. 

random permutation, 39. 

random selection without 
replacement, 39. 

rank, of an array, 14 32. 

rank, of result produced by 
indexing, 38. 

rank, restrictions on, for 
arguments of mixed functions, 
31. 

RANK ERROR, 11. 

rank order, 39. 

rank vector, 32. 

ravel, 30 31. 

real numbers, functions (on, 17. 

reciprocal, 18 20. 

recursion, 69. 

reduction, operator, 7 25. — ; 

reduction over empty array, 17 25. 

relations, 18 20. ’ 

remainder, 19. 

replace statement, in function 
definition, 63. ; 

representation, see encode and 
format. 

RESEND, system response, 11. 

reshape, 30 31. 

residue, 18 19. 

residue, in definition of encode, 
42. 

response, to statements entered 
from keyboard, 1. 

result, of defined function, 66. 

retraction, of shared variable 
offer, 57. 

return, to release statement being 
entered, 9. 

reverse, 30 33. 


98 APL Language 


reversing half duplex, shared 
variable access control, .57. 
revision, of entry before “release, 


revision, of function definition, 
59 63 64. 

rho, 12... 

rho, reshape, 32. 

rho, to determine shape of array,. 
15. , 

right arrow, 12 61. 

right identity, ee eee 

roll, 18 22. — 

root, square, etc., 22, 

rotate, 30 33. 

rotation, 33. 

row, 27. 


s 


sales, system for, 2 6. 

SAVE, command, 74. 80.. 

scalar, as argument of inner 
product, 29. 

scalar, constant, 10. 

Bee for vector. in catenate, 

34. : 

scalar functions, concept, 17... 

scalar functions, primitive, list © 
of, 18. 

scalar in place of ‘vector, for 
mixed functions, 31. =. 

scaled form, numbers represented 
by, 10. 

scan, operator, 7 25 26. 

selection, functions for, 29 36. 

selector generator, 38. 

Selectric terminal, 51. 

semantic rules, independent of 
data representation, 7. 


semicolon, 12 37. 


sequence of. control, 1 7 61. 

set membership, 39. 

setting shared variable, 52 55. 

shadowing, of global names by 
local names, 61. 

shape, function, 30 31. 

shape, of array, 14 15 32. 

shape vector, 32. 

shared variable, 50 57. 

shared variable offer, 52 53, 

shared variable, and workspace 
full during save, 80. 

shared variable, inquiries 
regarding, 53°57. 

shared variable, quota, 54. 

shared variable, retraction of, 53 
57. 

shared variable, shared with the 
system environment, 50 52. — 

shared variable, to communicate 
with processors outside APL, 7. 

SI, command, 11 74 78. 


SI DAMAGE, 11 68 75 78. 

side effects, absence of, 7. 

sign off, procedure for, 84. 

sign on, procedure for, 84. 

significance, of names, 1. 

signum, 18 20. 

simplex, shared variable access 
control, 57. 

sin, 14.18 23. 

singularity, of matrix to be 
inverted, 40. 

sinh, 18 23. 

SIV, command, 74 80. 

size, of array, 3 14. 

slash, 12. 

Slash bar, 12. 

Slope, 12. 

Slope bar, 12. 

space, 12. 

Spaces, as separators, 13. 

special characters, 10. 

specification, 9. 

specification, multiple, 9. 

star, 12. 

state indicator, 15 67 74 80. 

state indicator damage, 11 68 75 
78. 

state indicator, clearing, 67 76 
79. 

state indicator, with display of 
local variables, 74 80. 

statement, 1 73. 

statement, entered from keyboard, 
1. 

statement, form of, 9. 

statement types, listed, 7. 

stile, 12. 

stop control, 66 68. 

storage and retrieval, of 
workspaces, 73. 

strong interrupt, 9. 

structure, functions for, 29. 

structure, of arrays, 14. 

subtraction, 13 18. 

surrogate name, for shared 
variable, 52 53. 

suspended execution, 61 67 80. 

suspended function, and 
localization of names, 61.67 
80. 

suspended function, and state 
indicator, 61 67 80. 

suspended function, automatic_ 
restart by latent expression, 
50. 

symbol table, 76 78. 

SYMBOL TABLE FULL, 11 75. 

SYMBOLS, command, 74 77 79. 

symbols, in statements entered 
from keyboard, 1. 

symbols, used to represent 
primitive functions, 8 10. 

syntax, 1 7 14 59 60. 

‘SYNTAX ERROR, 11. 

system commands, 16 73 74. 


SYSTEM ERROR, 11. 

system functions, 47 48. 

system variables, to communicate 
with APL environment, 7°15 17 
47 50. 


T 


table, as matrix, 14. 

tables, generated by outer 
product, 29. 

table-generating functions, 25. 

tabular displays, use of format to 
generate, 46. 

take, 30 36. 

tan, 18 23. 

tanh, 18 23.° 

tapes, communication through 
shared. variable, 1 52. 

terminal, common characteristics 
of, 9. 

terminal, typewriter-like, 9. 

terminal, video, 9. 

terminal control characters, 
obtained from atomic vector, 
51. : 

terminal type, 51. 

text processing, 70.. 

three-dimensional array,. example 
of, 3. . 

tilde, 12. 

time stamp, 50 51. 

times, 12.18 19 25. 

top, 12. 

top null,:.12. 

trace control, 68. 

transformations, numeric to 
character and vice versa, 29, 

transpose, general, 30 35. 

transpose, ordinary, 30 35. 

trigonometric functions, see 
circular functions. 

trouble reports, 75. 

true, number 1 used to represent, 
20. 

type, data, 16 29 43. 

type element, non-APL, used for 
application, 3. 


U 


undefined values from certain 
expressions, 17. 

underbar, 12. 

up arrow, 12. 


_upstile, 12. 


use-of shared variable facility, 
52. 

user identification, 16 50 83. 

user load, 50 51.. 

using shared variable, restriction 
imposed by access control, 55. 
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Vv 


valence,. function, 7.13.. 
VALUE ERROR, 11. ; 
variable, named collection’ of: 
data, 1. 
variables, identified by name 
class function, 49. 
variables, list of, 2 74 79. 
VARS, command, 2 7h 796 we 
vector, entry of, 10.13. Ife 


Ww 


weak interrupt, 9. 

width, of character 
representation, 44. 

work area available, 50 51 76. 

workspace, active, 2 15. 

workspace,.as unit of storage, 15 
16. 

workspace, prepared, as example, 


2. : 

workspace full, 11 57.69 75 78 79 
80. 

workspace name, 73 74 80. 

WS FULL, 11 57 69 75 78 79 80. 

WS LOCKED, 75 77 79 82. 

ws NOT FOUND, 75.77.79 82... 

WSID, command, 73 74 80... 


Z 


zero divided by zero, defined, 19. 
zero-origin indexing, 15. . : 
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